Celestin Apprentice 5

home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Mac / Mod / MemoryMgr < prev next >
MacBinary | 1996-04-07 | 15.5 KB | [oODC/obnF]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: MemoryMgr
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Thu Jun 15 07:32:48 1995, modified Sun Apr 7 05:34:26 1996, creator 'obnF', type 'oODC', 15276 bytes "MemoryMgr" , at 0x3c2c 318 bytes resource	default (weak)
`99%`	file	data	default
`100%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[oODC]`
macFileCreator	`[obnF]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 4d 65 6d 6f 72 79 | 4d 67 72 00 00 00 00 00 |..Memory|Mgr.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 3b ac 00 | 00 01 3e ac 05 ca e0 ad |.....;..|..>.....|
|00000060| 8d 3c a2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.<......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 18 6e 00 00 |........|.....n..|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 29 |sc......|.......)|
|00000100| 3b 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |;.......|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 77 3a |Desc....|......w:|
|00000160| 00 00 09 00 00 00 6f 3a | 00 00 00 00 00 00 00 82 |......o:|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 19 3a 00 00 |........|.....:..|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 1b 38 00 00 |sc......|.....8..|
|000001f0| 0f 00 00 00 13 38 00 00 | 00 00 00 00 00 00 6d 06 |.....8..|......m.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 2c 00 00 00 00 00 00 00 |........|,.......|
|00000230| 1f 00 00 00 00 00 00 00 | 00 01 00 00 00 00 47 65 |........|......Ge|
|00000240| 6e 65 76 61 00 7c be 01 | 00 00 00 00 00 90 01 00 |neva.|..|........|
|00000250| 00 00 00 37 00 00 00 01 | 82 f2 0d 00 00 00 00 00 |...7....|........|
|00000260| 00 00 bb 02 00 00 00 00 | 00 00 1f 00 00 00 00 00 |........|........|
|00000270| 00 00 00 01 00 00 00 00 | 47 65 6e 65 76 61 00 7c |........|Geneva.||
|00000280| be 01 00 00 00 00 00 bc | 02 00 00 00 00 07 00 00 |........|........|
|00000290| 00 00 36 00 00 00 01 19 | 00 00 00 00 3e 00 00 00 |..6.....|....>...|
|000002a0| 01 0d 00 00 00 00 08 00 | 00 00 01 0b 00 00 00 00 |........|........|
|000002b0| 08 00 00 00 01 09 00 00 | 00 00 2e 00 00 00 01 0a |........|........|
|000002c0| 00 00 00 00 2b 00 00 00 | 01 0d 00 00 00 00 32 00 |....+...|......2.|
|000002d0| 00 00 01 0d 00 00 00 00 | 74 00 00 00 01 03 00 00 |........|t.......|
|000002e0| 00 00 13 00 00 00 01 06 | 00 00 00 00 14 00 00 00 |........|........|
|000002f0| 01 08 00 00 00 00 0f 00 | 00 00 01 0f 00 00 00 00 |........|........|
|00000300| 4a 00 00 00 01 0c 00 00 | 00 00 45 00 00 00 01 0b |J.......|..E.....|
|00000310| 00 00 00 00 20 00 00 00 | 01 08 00 00 00 00 20 00 |.... ...|...... .|
|00000320| 00 00 01 09 00 00 00 00 | 21 00 00 00 01 03 00 00 |........|!.......|
|00000330| 00 00 18 00 00 00 01 04 | 00 00 00 00 b2 01 00 00 |........|........|
|00000340| 01 0b 00 00 00 00 37 00 | 00 00 01 16 00 00 00 00 |......7.|........|
|00000350| 74 00 00 00 01 09 00 00 | 00 00 0f 00 00 00 01 16 |t.......|........|
|00000360| 00 00 00 00 15 00 00 00 | 01 13 00 00 00 00 40 00 |........|......@.|
|00000370| 00 00 01 10 00 00 00 00 | 31 00 00 00 01 11 00 00 |........|1.......|
|00000380| 00 00 4c 00 00 00 01 0f | 00 00 00 00 4b 00 00 00 |..L.....|....K...|
|00000390| 01 0c 00 00 00 00 45 00 | 00 00 01 10 00 00 00 00 |......E.|........|
|000003a0| 5f 00 00 00 01 0d 00 00 | 00 00 59 00 00 00 01 0c |_.......|..Y.....|
|000003b0| 00 00 00 00 34 00 00 00 | 01 0a 00 00 00 00 33 00 |....4...|......3.|
|000003c0| 00 00 01 0f 00 00 00 00 | 33 00 00 00 01 09 00 00 |........|3.......|
|000003d0| 00 00 36 00 00 00 01 06 | 00 00 00 00 33 00 00 00 |..6.....|....3...|
|000003e0| 01 08 00 00 00 00 3e 00 | 00 00 01 07 00 00 00 00 |......>.|........|
|000003f0| 33 00 00 00 01 09 00 00 | 00 00 51 00 00 00 01 0c |3.......|..Q.....|
|00000400| 00 00 00 00 51 00 00 00 | 01 0e 00 00 00 00 51 00 |....Q...|......Q.|
|00000410| 00 00 01 11 00 00 00 00 | 51 00 00 00 01 0a 00 00 |........|Q.......|
|00000420| 00 00 48 00 00 00 01 0d | 00 00 00 00 48 00 00 00 |..H.....|....H...|
|00000430| 01 10 00 00 00 00 48 00 | 00 00 01 06 00 00 00 00 |......H.|........|
|00000440| 4e 00 00 00 01 09 00 00 | 00 00 4e 00 00 00 01 0b |N.......|..N.....|
|00000450| 00 00 00 00 4e 00 00 00 | 01 0e 00 00 00 00 4e 00 |....N...|......N.|
|00000460| 00 00 01 07 00 00 00 00 | 45 00 00 00 01 08 00 00 |........|E.......|
|00000470| 00 00 37 00 00 00 01 0b | 00 00 00 00 37 00 00 00 |..7.....|....7...|
|00000480| 01 0a 00 00 00 00 37 00 | 00 00 01 0e 00 00 00 00 |......7.|........|
|00000490| 36 00 00 00 01 11 00 00 | 00 00 36 00 00 00 01 05 |6.......|..6.....|
|000004a0| 00 00 00 00 37 00 00 00 | 01 07 00 00 00 00 37 00 |....7...|......7.|
|000004b0| 00 00 01 06 00 00 00 00 | 37 00 00 00 01 08 00 00 |........|7.......|
|000004c0| 00 00 37 00 00 00 01 07 | 00 00 00 00 43 00 00 00 |..7.....|....C...|
|000004d0| 01 0d 00 00 00 00 73 00 | 00 00 01 0a 00 00 00 00 |......s.|........|
|000004e0| 4e 00 00 00 01 0b 00 00 | 00 00 95 00 00 00 01 09 |N.......|........|
|000004f0| 00 00 00 00 63 00 00 00 | 01 0b 00 00 00 00 63 00 |....c...|......c.|
|00000500| 00 00 01 11 00 00 00 00 | 63 00 00 00 01 0a 00 00 |........|c.......|
|00000510| 00 00 3f 00 00 00 01 0c | 00 00 00 00 0f 00 00 00 |..?.....|........|
|00000520| 02 82 f2 0d 00 00 00 00 | 00 00 00 2c 00 00 00 00 |........|...,....|
|00000530| 00 00 00 1f 00 00 00 00 | 00 ff 00 00 00 00 00 00 |........|........|
|00000540| 00 47 65 6e 65 76 61 00 | 7c be 01 00 00 00 00 00 |.Geneva.||.......|
|00000550| 90 01 00 00 00 00 3b 00 | 00 00 03 82 f2 0d 00 00 |......;.|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 1f 00 00 |........|........|
|00000570| 00 00 00 ff 00 00 00 00 | 00 00 00 47 65 6e 65 76 |........|...Genev|
|00000580| 61 00 7c be 01 00 00 00 | 00 00 bc 02 00 00 00 00 |a.|.....|........|
|00000590| 08 00 00 00 02 9a 00 00 | 00 00 11 00 00 00 01 07 |........|........|
|000005a0| 00 00 00 00 35 00 00 00 | 01 0a 00 00 00 00 4e 00 |....5...|......N.|
|000005b0| 00 00 01 0d 00 00 00 00 | 4e 00 00 00 01 08 00 00 |........|N.......|
|000005c0| 00 00 3c 00 00 00 01 0b | 00 00 00 00 3c 00 00 00 |..<.....|....<...|
|000005d0| 01 07 00 00 00 00 37 00 | 00 00 01 0a 00 00 00 00 |......7.|........|
|000005e0| 37 00 00 00 01 0a 00 00 | 00 00 3c 00 00 00 01 0d |7.......|..<.....|
|000005f0| 00 00 00 00 3c 00 00 00 | 01 06 00 00 00 00 5a 00 |....<...|......Z.|
|00000600| 00 00 01 09 00 00 00 00 | 5a 00 00 00 01 0b 00 00 |........|Z.......|
|00000610| 00 00 43 00 00 00 01 0c | 00 00 00 00 3c 00 00 00 |..C.....|....<...|
|00000620| 01 07 00 00 00 00 37 00 | 00 00 01 0a 00 00 00 00 |......7.|........|
|00000630| 23 00 00 00 02 32 00 00 | 00 03 0a 00 00 00 02 a4 |#....2..|........|
|00000640| 00 00 00 00 12 00 00 00 | 01 0a 00 00 00 00 4f 00 |........|......O.|
|00000650| 00 00 01 0d 00 00 00 00 | 37 00 00 00 01 0d 00 00 |........|7.......|
|00000660| 00 00 41 00 00 00 02 ef | 00 00 00 00 12 00 00 00 |..A.....|........|
|00000670| 01 10 00 00 00 00 54 00 | 00 00 01 0b 00 00 00 00 |......T.|........|
|00000680| 37 00 00 00 01 08 00 00 | 00 00 37 00 00 00 01 08 |7.......|..7.....|
|00000690| 00 00 00 00 37 00 00 00 | 01 0b 00 00 00 00 20 00 |....7...|...... .|
|000006a0| 00 00 01 09 00 00 00 00 | 70 00 00 00 01 0d 00 00 |........|p.......|
|000006b0| 00 00 5f 00 00 00 02 32 | 00 00 00 03 0a 00 00 00 |.._....2|........|
|000006c0| 02 83 00 00 00 00 12 00 | 00 00 01 09 00 00 00 00 |........|........|
|000006d0| 4d 00 00 00 01 09 00 00 | 00 00 50 00 00 00 01 0b |M.......|..P.....|
|000006e0| 00 00 00 00 3b 00 00 00 | 01 0b 00 00 00 00 20 00 |....;...|...... .|
|000006f0| 00 00 01 0a 00 00 00 00 | 7e 00 00 00 01 0c 00 00 |........|~.......|
|00000700| 00 00 7e 00 00 00 01 0a | 00 00 00 00 7e 00 00 00 |..~.....|....~...|
|00000710| 01 14 00 00 00 00 7e 00 | 00 00 01 0c 00 00 00 00 |......~.|........|
|00000720| 6d 00 00 00 02 49 00 00 | 00 03 0b 00 00 00 02 68 |m....I..|.......h|
|00000730| 01 00 00 00 11 00 00 00 | 01 0b 00 00 00 00 7c 00 |........|......|.|
|00000740| 00 00 01 0e 00 00 00 00 | 43 00 00 00 01 0d 00 00 |........|C.......|
|00000750| 00 00 2c 00 00 00 01 0c | 00 00 00 00 2c 00 00 00 |..,.....|....,...|
|00000760| 01 0c 00 00 00 00 2c 00 | 00 00 01 0c 00 00 00 00 |......,.|........|
|00000770| 5d 00 00 00 01 0e 00 00 | 00 00 43 00 00 00 01 12 |].......|..C.....|
|00000780| 00 00 00 00 7e 00 00 00 | 01 14 00 00 00 00 7e 00 |....~...|......~.|
|00000790| 00 00 01 13 00 00 00 00 | 52 00 00 00 01 0c 00 00 |........|R.......|
|000007a0| 00 00 4e 00 00 00 01 0f | 00 00 00 00 39 00 00 00 |..N.....|....9...|
|000007b0| 02 3d 00 00 00 03 0a 00 | 00 00 02 c1 00 00 00 00 |.=......|........|
|000007c0| 11 00 00 00 01 0a 00 00 | 00 00 7c 00 00 00 02 3c |........|..|....<|
|000007d0| 00 00 00 03 09 00 00 00 | 02 f3 00 00 00 00 11 00 |........|........|
|000007e0| 00 00 01 0b 00 00 00 00 | 72 00 00 00 01 0a 00 00 |........|r.......|
|000007f0| 00 00 89 00 00 00 01 0a | 00 00 00 00 33 00 00 00 |........|....3...|
|00000800| 01 0f 00 00 00 00 73 00 | 00 00 01 08 00 00 00 00 |......s.|........|
|00000810| 4e 00 00 00 01 09 00 00 | 00 00 43 00 00 00 01 0b |N.......|..C.....|
|00000820| 00 00 00 00 63 00 00 00 | 01 0d 00 00 00 00 63 00 |....c...|......c.|
|00000830| 00 00 01 12 00 00 00 00 | 63 00 00 00 01 08 00 00 |........|c.......|
|00000840| 00 00 3f 00 00 00 01 08 | 00 00 00 00 3c 00 00 00 |..?.....|....<...|
|00000850| 01 09 00 00 00 00 34 00 | 00 00 01 0c 00 00 00 00 |......4.|........|
|00000860| 37 00 00 00 01 0d 00 00 | 00 00 56 00 00 00 ff 4d |7.......|..V....M|
|00000870| 4f 44 55 4c 45 20 4d 61 | 63 4d 65 6d 6f 72 79 4d |ODULE Ma|cMemoryM|
|00000880| 67 72 3b 0d 0d 49 4d 50 | 4f 52 54 20 53 59 53 54 |gr;..IMP|ORT SYST|
|00000890| 45 4d 2c 20 4d 61 63 54 | 79 70 65 73 3b 0d 0d 43 |EM, MacT|ypes;..C|
|000008a0| 4f 4e 53 54 0d 09 6d 61 | 78 53 69 7a 65 2a 20 3d |ONST..ma|xSize* =|
|000008b0| 20 30 38 30 30 30 30 30 | 48 3b 09 28 2a 4d 61 78 | 0800000|H;.(*Max|
|000008c0| 20 64 61 74 61 20 62 6c | 6f 63 6b 20 73 69 7a 65 | data bl|ock size|
|000008d0| 20 69 73 20 38 20 6d 65 | 67 61 62 79 74 65 73 2a | is 8 me|gabytes*|
|000008e0| 29 0d 09 64 65 66 61 75 | 6c 74 50 68 79 73 69 63 |)..defau|ltPhysic|
|000008f0| 61 6c 45 6e 74 72 79 43 | 6f 75 6e 74 2a 20 3d 20 |alEntryC|ount* = |
|00000900| 38 3b 0d 0d 28 2a 20 76 | 61 6c 75 65 73 20 72 65 |8;..(* v|alues re|
|00000910| 74 75 72 6e 65 64 20 66 | 72 6f 6d 20 74 68 65 20 |turned f|rom the |
|00000920| 47 65 74 50 61 67 65 53 | 74 61 74 65 20 66 75 6e |GetPageS|tate fun|
|00000930| 63 74 69 6f 6e 20 2a 29 | 0d 09 6b 50 61 67 65 49 |ction *)|..kPageI|
|00000940| 6e 4d 65 6d 6f 72 79 2a | 20 3d 20 30 3b 0d 09 6b |nMemory*| = 0;..k|
|00000950| 50 61 67 65 4f 6e 44 69 | 73 6b 2a 20 3d 20 31 3b |PageOnDi|sk* = 1;|
|00000960| 0d 09 6b 4e 6f 74 50 61 | 67 65 64 2a 20 3d 20 32 |..kNotPa|ged* = 2|
|00000970| 3b 0d 0d 28 2a 20 6d 61 | 73 6b 73 20 66 6f 72 20 |;..(* ma|sks for |
|00000980| 5a 6f 6e 65 2d 3e 68 65 | 61 70 54 79 70 65 20 66 |Zone->he|apType f|
|00000990| 69 65 6c 64 20 2a 29 0d | 09 6b 33 32 42 69 74 48 |ield *).|.k32BitH|
|000009a0| 65 61 70 2a 20 3d 20 31 | 3b 09 28 2a 20 76 61 6c |eap* = 1|;.(* val|
|000009b0| 69 64 20 69 6e 20 61 6c | 6c 20 4d 65 6d 6f 72 79 |id in al|l Memory|
|000009c0| 20 4d 61 6e 61 67 65 72 | 73 20 2a 29 0d 09 6b 4e | Manager|s *)..kN|
|000009d0| 65 77 53 74 79 6c 65 48 | 65 61 70 2a 20 3d 20 32 |ewStyleH|eap* = 2|
|000009e0| 3b 09 28 2a 20 74 72 75 | 65 20 69 66 20 6e 65 77 |;.(* tru|e if new|
|000009f0| 20 48 65 61 70 20 4d 61 | 6e 61 67 65 72 20 69 73 | Heap Ma|nager is|
|00000a00| 20 70 72 65 73 65 6e 74 | 20 2a 29 0d 09 6b 4e 65 | present| *)..kNe|
|00000a10| 77 44 65 62 75 67 48 65 | 61 70 2a 20 3d 20 34 3b |wDebugHe|ap* = 4;|
|00000a20| 09 28 2a 20 74 72 75 65 | 20 69 66 20 6e 65 77 20 |.(* true| if new |
|00000a30| 48 65 61 70 20 4d 61 6e | 61 67 65 72 20 69 73 20 |Heap Man|ager is |
|00000a40| 72 75 6e 6e 69 6e 67 20 | 69 6e 20 64 65 62 75 67 |running |in debug|
|00000a50| 20 6d 6f 64 65 20 6f 6e | 20 74 68 69 73 20 68 65 | mode on| this he|
|00000a60| 61 70 20 2a 29 0d 0d 28 | 2a 20 73 69 7a 65 20 6f |ap *)..(|* size o|
|00000a70| 66 20 61 20 62 6c 6f 63 | 6b 20 69 6e 20 62 79 74 |f a bloc|k in byt|
|00000a80| 65 73 20 2a 29 0d 09 0d | 54 59 50 45 0d 09 50 74 |es *)...|TYPE..Pt|
|00000a90| 72 2a 20 3d 20 4d 61 63 | 54 79 70 65 73 2e 50 74 |r* = Mac|Types.Pt|
|00000aa0| 72 3b 0d 09 48 61 6e 64 | 6c 65 2a 20 3d 20 4d 61 |r;..Hand|le* = Ma|
|00000ab0| 63 54 79 70 65 73 2e 48 | 61 6e 64 6c 65 3b 0d 09 |cTypes.H|andle;..|
|00000ac0| 0d 09 53 69 7a 65 2a 20 | 3d 20 4c 4f 4e 47 49 4e |..Size* |= LONGIN|
|00000ad0| 54 3b 0d 0d 09 47 72 6f | 77 5a 6f 6e 65 50 72 6f |T;...Gro|wZonePro|
|00000ae0| 63 50 74 72 2a 20 3d 20 | 4d 61 63 54 79 70 65 73 |cPtr* = |MacTypes|
|00000af0| 2e 50 72 6f 63 50 74 72 | 3b 20 20 28 2a 20 46 55 |.ProcPtr|;  (* FU|
|00000b00| 4e 43 54 49 4f 4e 20 47 | 72 6f 77 5a 6f 6e 65 28 |NCTION G|rowZone(|
|00000b10| 63 62 4e 65 65 64 65 64 | 3a 20 53 69 7a 65 29 3a |cbNeeded|: Size):|
|00000b20| 20 4c 4f 4e 47 49 4e 54 | 3b 20 2a 29 0d 09 50 75 | LONGINT|; *)..Pu|
|00000b30| 72 67 65 50 72 6f 63 50 | 74 72 2a 20 3d 20 4d 61 |rgeProcP|tr* = Ma|
|00000b40| 63 54 79 70 65 73 2e 50 | 72 6f 63 50 74 72 3b 20 |cTypes.P|rocPtr; |
|00000b50| 20 28 2a 20 50 52 4f 43 | 45 44 55 52 45 20 50 75 | (* PROC|EDURE Pu|
|00000b60| 72 67 65 28 62 6c 6f 63 | 6b 54 6f 50 75 72 67 65 |rge(bloc|kToPurge|
|00000b70| 3a 20 48 61 6e 64 6c 65 | 29 3b 20 2a 29 0d 09 47 |: Handle|); *)..G|
|00000b80| 72 6f 77 5a 6f 6e 65 55 | 50 50 2a 20 3d 20 4d 61 |rowZoneU|PP* = Ma|
|00000b90| 63 54 79 70 65 73 2e 55 | 6e 69 76 65 72 73 61 6c |cTypes.U|niversal|
|00000ba0| 50 72 6f 63 50 74 72 3b | 0d 09 50 75 72 67 65 55 |ProcPtr;|..PurgeU|
|00000bb0| 50 50 2a 20 3d 20 4d 61 | 63 54 79 70 65 73 2e 55 |PP* = Ma|cTypes.U|
|00000bc0| 6e 69 76 65 72 73 61 6c | 50 72 6f 63 50 74 72 3b |niversal|ProcPtr;|
|00000bd0| 0d 09 55 73 65 72 46 6e | 55 50 50 2a 20 3d 20 4d |..UserFn|UPP* = M|
|00000be0| 61 63 54 79 70 65 73 2e | 55 6e 69 76 65 72 73 61 |acTypes.|Universa|
|00000bf0| 6c 50 72 6f 63 50 74 72 | 3b 0d 0d 09 54 48 7a 2a |lProcPtr|;...THz*|
|00000c00| 20 3d 20 20 50 4f 49 4e | 54 45 52 20 54 4f 20 5a | =  POIN|TER TO Z|
|00000c10| 6f 6e 65 3b 0d 0d 09 5a | 6f 6e 65 2a 20 3d 20 52 |one;...Z|one* = R|
|00000c20| 45 43 4f 52 44 0d 09 09 | 62 6b 4c 69 6d 2a 3a 20 |ECORD...|bkLim*: |
|00000c30| 50 74 72 3b 0d 09 09 70 | 75 72 67 65 50 74 72 2a |Ptr;...p|urgePtr*|
|00000c40| 3a 20 50 74 72 3b 0d 09 | 09 68 46 73 74 46 72 65 |: Ptr;..|.hFstFre|
|00000c50| 65 2a 3a 20 50 74 72 3b | 0d 09 09 7a 63 62 46 72 |e*: Ptr;|...zcbFr|
|00000c60| 65 65 2a 3a 20 4c 4f 4e | 47 49 4e 54 3b 0d 09 09 |ee*: LON|GINT;...|
|00000c70| 67 7a 50 72 6f 63 2a 3a | 20 47 72 6f 77 5a 6f 6e |gzProc*:| GrowZon|
|00000c80| 65 55 50 50 3b 0d 09 09 | 6d 6f 72 65 4d 61 73 74 |eUPP;...|moreMast|
|00000c90| 2a 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 09 66 6c |*: INTEG|ER;...fl|
|00000ca0| 61 67 73 2a 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |ags*: IN|TEGER;..|
|00000cb0| 09 63 6e 74 52 65 6c 2a | 3a 20 49 4e 54 45 47 45 |.cntRel*|: INTEGE|
|00000cc0| 52 3b 0d 09 09 6d 61 78 | 52 65 6c 2a 3a 20 49 4e |R;...max|Rel*: IN|
|00000cd0| 54 45 47 45 52 3b 0d 09 | 09 63 6e 74 4e 52 65 6c |TEGER;..|.cntNRel|
|00000ce0| 2a 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 09 68 65 |*: INTEG|ER;...he|
|00000cf0| 61 70 54 79 70 65 2a 3a | 20 53 48 4f 52 54 49 4e |apType*:| SHORTIN|
|00000d00| 54 3b 20 28 2a 20 42 79 | 74 65 20 2a 29 0d 09 09 |T; (* By|te *)...|
|00000d10| 75 6e 75 73 65 64 2a 3a | 20 53 48 4f 52 54 49 4e |unused*:| SHORTIN|
|00000d20| 54 3b 20 28 2a 20 42 79 | 74 65 20 2a 29 0d 09 09 |T; (* By|te *)...|
|00000d30| 63 6e 74 45 6d 70 74 79 | 2a 3a 20 49 4e 54 45 47 |cntEmpty|*: INTEG|
|00000d40| 45 52 3b 0d 09 09 63 6e | 74 48 61 6e 64 6c 65 73 |ER;...cn|tHandles|
|00000d50| 2a 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 09 6d 69 |*: INTEG|ER;...mi|
|00000d60| 6e 43 42 46 72 65 65 2a | 3a 20 4c 4f 4e 47 49 4e |nCBFree*|: LONGIN|
|00000d70| 54 3b 0d 09 09 70 75 72 | 67 65 50 72 6f 63 2a 3a |T;...pur|geProc*:|
|00000d80| 20 50 75 72 67 65 55 50 | 50 3b 0d 09 09 73 70 61 | PurgeUP|P;...spa|
|00000d90| 72 65 50 74 72 2a 3a 20 | 50 74 72 3b 0d 09 09 61 |rePtr*: |Ptr;...a|
|00000da0| 6c 6c 6f 63 50 74 72 2a | 3a 20 50 74 72 3b 0d 09 |llocPtr*|: Ptr;..|
|00000db0| 09 68 65 61 70 44 61 74 | 61 2a 3a 20 49 4e 54 45 |.heapDat|a*: INTE|
|00000dc0| 47 45 52 3b 0d 09 45 4e | 44 3b 0d 0d 09 4d 65 6d |GER;..EN|D;...Mem|
|00000dd0| 6f 72 79 42 6c 6f 63 6b | 2a 20 3d 20 52 45 43 4f |oryBlock|* = RECO|
|00000de0| 52 44 0d 09 09 61 64 64 | 72 65 73 73 2a 3a 20 50 |RD...add|ress*: P|
|00000df0| 74 72 3b 0d 09 09 63 6f | 75 6e 74 2a 3a 20 4c 4f |tr;...co|unt*: LO|
|00000e00| 4e 47 49 4e 54 3b 0d 09 | 45 4e 44 3b 0d 0d 09 4c |NGINT;..|END;...L|
|00000e10| 6f 67 69 63 61 6c 54 6f | 50 68 79 73 69 63 61 6c |ogicalTo|Physical|
|00000e20| 54 61 62 6c 65 2a 20 3d | 20 52 45 43 4f 52 44 0d |Table* =| RECORD.|
|00000e30| 09 09 6c 6f 67 69 63 61 | 6c 2a 3a 20 4d 65 6d 6f |..logica|l*: Memo|
|00000e40| 72 79 42 6c 6f 63 6b 3b | 0d 09 09 70 68 79 73 69 |ryBlock;|...physi|
|00000e50| 63 61 6c 2a 3a 20 41 52 | 52 41 59 20 5b 75 6e 74 |cal*: AR|RAY [unt|
|00000e60| 61 67 67 65 64 5d 20 64 | 65 66 61 75 6c 74 50 68 |agged] d|efaultPh|
|00000e70| 79 73 69 63 61 6c 45 6e | 74 72 79 43 6f 75 6e 74 |ysicalEn|tryCount|
|00000e80| 20 4f 46 20 4d 65 6d 6f | 72 79 42 6c 6f 63 6b 3b | OF Memo|ryBlock;|
|00000e90| 0d 09 45 4e 44 3b 0d 0d | 09 50 61 67 65 53 74 61 |..END;..|.PageSta|
|00000ea0| 74 65 2a 20 3d 20 49 4e | 54 45 47 45 52 3b 0d 0d |te* = IN|TEGER;..|
|00000eb0| 09 53 74 61 74 75 73 52 | 65 67 69 73 74 65 72 43 |.StatusR|egisterC|
|00000ec0| 6f 6e 74 65 6e 74 73 2a | 20 3d 20 49 4e 54 45 47 |ontents*| = INTEG|
|00000ed0| 45 52 3b 0d 0d 43 4f 4e | 53 54 0d 09 75 70 70 47 |ER;..CON|ST..uppG|
|00000ee0| 72 6f 77 5a 6f 6e 65 50 | 72 6f 63 49 6e 66 6f 2a |rowZoneP|rocInfo*|
|00000ef0| 20 3d 20 30 30 30 30 30 | 30 30 46 30 48 3b 20 28 | = 00000|00F0H; (|
|00000f00| 2a 20 50 52 4f 43 45 44 | 55 52 45 20 28 34 20 62 |* PROCED|URE (4 b|
|00000f10| 79 74 65 20 70 61 72 61 | 6d 29 3a 20 34 20 62 79 |yte para|m): 4 by|
|00000f20| 74 65 20 72 65 73 75 6c | 74 3b 20 2a 29 0d 09 75 |te resul|t; *)..u|
|00000f30| 70 70 50 75 72 67 65 50 | 72 6f 63 49 6e 66 6f 2a |ppPurgeP|rocInfo*|
|00000f40| 20 3d 20 30 30 30 30 30 | 30 30 43 30 48 3b 20 28 | = 00000|00C0H; (|
|00000f50| 2a 20 50 52 4f 43 45 44 | 55 52 45 20 28 34 20 62 |* PROCED|URE (4 b|
|00000f60| 79 74 65 20 70 61 72 61 | 6d 29 3b 20 2a 29 0d 09 |yte para|m); *)..|
|00000f70| 75 70 70 55 73 65 72 46 | 6e 50 72 6f 63 49 6e 66 |uppUserF|nProcInf|
|00000f80| 6f 2a 20 3d 20 30 30 30 | 30 30 39 38 30 32 48 3b |o* = 000|009802H;|
|00000f90| 20 28 2a 20 52 65 67 69 | 73 74 65 72 20 50 52 4f | (* Regi|ster PRO|
|00000fa0| 43 45 44 55 52 45 20 28 | 34 20 62 79 74 65 73 20 |CEDURE (|4 bytes |
|00000fb0| 69 6e 20 41 30 29 3b 20 | 2a 29 0d 0d 50 52 4f 43 |in A0); |*)..PROC|
|00000fc0| 45 44 55 52 45 20 5b 63 | 6f 64 65 5d 20 4e 65 77 |EDURE [c|ode] New|
|00000fd0| 47 72 6f 77 5a 6f 6e 65 | 50 72 6f 63 2a 28 75 73 |GrowZone|Proc*(us|
|00000fe0| 65 72 52 6f 75 74 69 6e | 65 3a 20 47 72 6f 77 5a |erRoutin|e: GrowZ|
|00000ff0| 6f 6e 65 50 72 6f 63 50 | 74 72 29 3a 20 47 72 6f |oneProcP|tr): Gro|
|00001000| 77 5a 6f 6e 65 55 50 50 | 20 30 32 45 48 2c 20 30 |wZoneUPP| 02EH, 0|
|00001010| 39 46 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |9FH;..PR|OCEDURE |
|00001020| 5b 63 6f 64 65 5d 20 4e | 65 77 50 75 72 67 65 50 |[code] N|ewPurgeP|
|00001030| 72 6f 63 2a 28 75 73 65 | 72 52 6f 75 74 69 6e 65 |roc*(use|rRoutine|
|00001040| 3a 20 50 75 72 67 65 50 | 72 6f 63 50 74 72 29 3a |: PurgeP|rocPtr):|
|00001050| 20 50 75 72 67 65 55 50 | 50 20 30 32 45 48 2c 20 | PurgeUP|P 02EH, |
|00001060| 30 39 46 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |09FH;..P|ROCEDURE|
|00001070| 20 5b 63 6f 64 65 5d 20 | 43 61 6c 6c 47 72 6f 77 | [code] |CallGrow|
|00001080| 5a 6f 6e 65 50 72 6f 63 | 2a 28 63 62 4e 65 65 64 |ZoneProc|*(cbNeed|
|00001090| 65 64 3a 20 53 69 7a 65 | 3b 20 75 73 65 72 52 6f |ed: Size|; userRo|
|000010a0| 75 74 69 6e 65 3a 20 47 | 72 6f 77 5a 6f 6e 65 55 |utine: G|rowZoneU|
|000010b0| 50 50 29 3a 20 4c 4f 4e | 47 49 4e 54 20 30 32 30 |PP): LON|GINT 020|
|000010c0| 48 2c 20 30 35 46 48 2c | 20 30 34 45 48 2c 20 30 |H, 05FH,| 04EH, 0|
|000010d0| 39 30 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |90H;..PR|OCEDURE |
|000010e0| 5b 63 6f 64 65 5d 20 43 | 61 6c 6c 50 75 72 67 65 |[code] C|allPurge|
|000010f0| 50 72 6f 63 2a 28 62 6c | 6f 63 6b 54 6f 50 75 72 |Proc*(bl|ockToPur|
|00001100| 67 65 3a 20 48 61 6e 64 | 6c 65 3b 20 75 73 65 72 |ge: Hand|le; user|
|00001110| 52 6f 75 74 69 6e 65 3a | 20 50 75 72 67 65 55 50 |Routine:| PurgeUP|
|00001120| 50 29 20 30 32 30 48 2c | 20 30 35 46 48 2c 20 30 |P) 020H,| 05FH, 0|
|00001130| 34 45 48 2c 20 30 39 30 | 48 3b 0d 0d 50 52 4f 43 |4EH, 090|H;..PROC|
|00001140| 45 44 55 52 45 20 5b 63 | 6f 64 65 5d 20 47 65 74 |EDURE [c|ode] Get|
|00001150| 41 70 70 6c 4c 69 6d 69 | 74 2a 28 29 3a 20 50 74 |ApplLimi|t*(): Pt|
|00001160| 72 20 20 30 32 45 48 2c | 20 30 42 38 48 2c 20 30 |r  02EH,| 0B8H, 0|
|00001170| 30 31 48 2c 20 30 33 30 | 48 3b 0d 0d 50 52 4f 43 |01H, 030|H;..PROC|
|00001180| 45 44 55 52 45 20 5b 63 | 6f 64 65 5d 20 53 79 73 |EDURE [c|ode] Sys|
|00001190| 74 65 6d 5a 6f 6e 65 2a | 28 29 3a 20 54 48 7a 20 |temZone*|(): THz |
|000011a0| 30 32 45 48 2c 20 30 42 | 38 48 2c 20 30 30 32 48 |02EH, 0B|8H, 002H|
|000011b0| 2c 20 30 41 36 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 0A6H;.|.PROCEDU|
|000011c0| 52 45 20 5b 63 6f 64 65 | 5d 20 41 70 70 6c 69 63 |RE [code|] Applic|
|000011d0| 61 74 69 6f 6e 5a 6f 6e | 65 2a 28 29 3a 20 54 48 |ationZon|e*(): TH|
|000011e0| 7a 20 30 32 45 48 2c 20 | 30 42 38 48 2c 20 30 30 |z 02EH, |0B8H, 00|
|000011f0| 32 48 2c 20 30 41 41 48 | 3b 0d 0d 50 52 4f 43 45 |2H, 0AAH|;..PROCE|
|00001200| 44 55 52 45 20 5b 63 6f | 64 65 5d 20 47 5a 53 61 |DURE [co|de] GZSa|
|00001210| 76 65 48 6e 64 2a 28 29 | 3a 20 48 61 6e 64 6c 65 |veHnd*()|: Handle|
|00001220| 20 30 32 45 48 2c 20 30 | 42 38 48 2c 20 30 30 33 | 02EH, 0|B8H, 003|
|00001230| 48 2c 20 30 32 38 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 028H;|..PROCED|
|00001240| 55 52 45 20 5b 63 6f 64 | 65 5d 20 54 6f 70 4d 65 |URE [cod|e] TopMe|
|00001250| 6d 2a 28 29 3a 20 50 74 | 72 20 30 32 45 48 2c 20 |m*(): Pt|r 02EH, |
|00001260| 30 42 38 48 2c 20 30 30 | 31 48 2c 20 30 30 38 48 |0B8H, 00|1H, 008H|
|00001270| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|00001280| 64 65 5d 20 4d 65 6d 45 | 72 72 6f 72 2a 28 29 3a |de] MemE|rror*():|
|00001290| 20 4d 61 63 54 79 70 65 | 73 2e 4f 53 45 72 72 20 | MacType|s.OSErr |
|000012a0| 30 33 45 48 2c 20 30 42 | 38 48 2c 20 30 30 32 48 |03EH, 0B|8H, 002H|
|000012b0| 2c 20 30 32 30 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 020H;.|.PROCEDU|
|000012c0| 52 45 20 5b 63 6f 64 65 | 5d 20 47 65 74 5a 6f 6e |RE [code|] GetZon|
|000012d0| 65 2a 28 29 3a 20 54 48 | 7a 20 30 41 31 48 2c 20 |e*(): TH|z 0A1H, |
|000012e0| 30 31 41 48 2c 20 30 32 | 45 48 2c 20 30 38 38 48 |01AH, 02|EH, 088H|
|000012f0| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|00001300| 64 65 5d 20 4e 65 77 48 | 61 6e 64 6c 65 2a 28 62 |de] NewH|andle*(b|
|00001310| 79 74 65 43 6f 75 6e 74 | 3a 20 53 69 7a 65 29 3a |yteCount|: Size):|
|00001320| 20 48 61 6e 64 6c 65 20 | 30 32 30 48 2c 20 30 31 | Handle |020H, 01|
|00001330| 46 48 2c 20 30 41 31 48 | 2c 20 30 32 32 48 2c 20 |FH, 0A1H|, 022H, |
|00001340| 30 32 45 48 2c 20 30 38 | 38 48 3b 0d 0d 50 52 4f |02EH, 08|8H;..PRO|
|00001350| 43 45 44 55 52 45 20 5b | 63 6f 64 65 5d 20 4e 65 |CEDURE [|code] Ne|
|00001360| 77 48 61 6e 64 6c 65 53 | 79 73 2a 28 62 79 74 65 |wHandleS|ys*(byte|
|00001370| 43 6f 75 6e 74 3a 20 53 | 69 7a 65 29 3a 20 48 61 |Count: S|ize): Ha|
|00001380| 6e 64 6c 65 20 30 32 30 | 48 2c 20 30 31 46 48 2c |ndle 020|H, 01FH,|
|00001390| 20 30 41 35 48 2c 20 30 | 32 32 48 2c 20 30 32 45 | 0A5H, 0|22H, 02E|
|000013a0| 48 2c 20 30 38 38 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 088H;|..PROCED|
|000013b0| 55 52 45 20 5b 63 6f 64 | 65 5d 20 4e 65 77 48 61 |URE [cod|e] NewHa|
|000013c0| 6e 64 6c 65 43 6c 65 61 | 72 2a 28 62 79 74 65 43 |ndleClea|r*(byteC|
|000013d0| 6f 75 6e 74 3a 20 53 69 | 7a 65 29 3a 20 48 61 6e |ount: Si|ze): Han|
|000013e0| 64 6c 65 20 30 32 30 48 | 2c 20 30 31 46 48 2c 20 |dle 020H|, 01FH, |
|000013f0| 30 41 33 48 2c 20 30 32 | 32 48 2c 20 30 32 45 48 |0A3H, 02|2H, 02EH|
|00001400| 2c 20 30 38 38 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 088H;.|.PROCEDU|
|00001410| 52 45 20 5b 63 6f 64 65 | 5d 20 4e 65 77 48 61 6e |RE [code|] NewHan|
|00001420| 64 6c 65 53 79 73 43 6c | 65 61 72 2a 28 62 79 74 |dleSysCl|ear*(byt|
|00001430| 65 43 6f 75 6e 74 3a 20 | 53 69 7a 65 29 3a 20 48 |eCount: |Size): H|
|00001440| 61 6e 64 6c 65 20 30 32 | 30 48 2c 20 30 31 46 48 |andle 02|0H, 01FH|
|00001450| 2c 20 30 41 37 48 2c 20 | 30 32 32 48 2c 20 30 32 |, 0A7H, |022H, 02|
|00001460| 45 48 2c 20 30 38 38 48 | 3b 0d 0d 50 52 4f 43 45 |EH, 088H|;..PROCE|
|00001470| 44 55 52 45 20 5b 63 6f | 64 65 5d 20 48 61 6e 64 |DURE [co|de] Hand|
|00001480| 6c 65 5a 6f 6e 65 2a 28 | 68 3a 20 48 61 6e 64 6c |leZone*(|h: Handl|
|00001490| 65 29 3a 20 54 48 7a 20 | 30 32 30 48 2c 20 30 35 |e): THz |020H, 05|
|000014a0| 46 48 2c 20 30 41 31 48 | 2c 20 30 32 36 48 2c 20 |FH, 0A1H|, 026H, |
|000014b0| 30 32 45 48 2c 20 30 38 | 38 48 3b 0d 0d 50 52 4f |02EH, 08|8H;..PRO|
|000014c0| 43 45 44 55 52 45 20 5b | 63 6f 64 65 5d 20 52 65 |CEDURE [|code] Re|
|000014d0| 63 6f 76 65 72 48 61 6e | 64 6c 65 2a 28 70 3a 20 |coverHan|dle*(p: |
|000014e0| 50 74 72 29 3a 20 48 61 | 6e 64 6c 65 20 30 32 30 |Ptr): Ha|ndle 020|
|000014f0| 48 2c 20 30 35 46 48 2c | 20 30 41 31 48 2c 20 30 |H, 05FH,| 0A1H, 0|
|00001500| 32 38 48 2c 20 30 32 45 | 48 2c 20 30 38 38 48 3b |28H, 02E|H, 088H;|
|00001510| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 63 6f 64 |..PROCED|URE [cod|
|00001520| 65 5d 20 52 65 63 6f 76 | 65 72 48 61 6e 64 6c 65 |e] Recov|erHandle|
|00001530| 53 79 73 2a 28 70 3a 20 | 50 74 72 29 3a 20 48 61 |Sys*(p: |Ptr): Ha|
|00001540| 6e 64 6c 65 20 30 32 30 | 48 2c 20 30 35 46 48 2c |ndle 020|H, 05FH,|
|00001550| 20 30 41 35 48 2c 20 30 | 32 38 48 2c 20 30 32 45 | 0A5H, 0|28H, 02E|
|00001560| 48 2c 20 30 38 38 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 088H;|..PROCED|
|00001570| 55 52 45 20 5b 63 6f 64 | 65 5d 20 4e 65 77 50 74 |URE [cod|e] NewPt|
|00001580| 72 2a 28 62 79 74 65 43 | 6f 75 6e 74 3a 20 53 69 |r*(byteC|ount: Si|
|00001590| 7a 65 29 3a 20 50 74 72 | 20 30 32 30 48 2c 20 30 |ze): Ptr| 020H, 0|
|000015a0| 31 46 48 2c 20 30 41 31 | 48 2c 20 30 31 45 48 2c |1FH, 0A1|H, 01EH,|
|000015b0| 20 30 32 45 48 2c 20 30 | 38 38 48 3b 0d 0d 50 52 | 02EH, 0|88H;..PR|
|000015c0| 4f 43 45 44 55 52 45 20 | 5b 63 6f 64 65 5d 20 4e |OCEDURE |[code] N|
|000015d0| 65 77 50 74 72 53 79 73 | 2a 28 62 79 74 65 43 6f |ewPtrSys|*(byteCo|
|000015e0| 75 6e 74 3a 20 53 69 7a | 65 29 3a 20 50 74 72 20 |unt: Siz|e): Ptr |
|000015f0| 30 32 30 48 2c 20 30 31 | 46 48 2c 20 30 41 35 48 |020H, 01|FH, 0A5H|
|00001600| 2c 20 30 31 45 48 2c 20 | 30 32 45 48 2c 20 30 38 |, 01EH, |02EH, 08|
|00001610| 38 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |8H;..PRO|CEDURE [|
|00001620| 63 6f 64 65 5d 20 4e 65 | 77 50 74 72 43 6c 65 61 |code] Ne|wPtrClea|
|00001630| 72 2a 28 62 79 74 65 43 | 6f 75 6e 74 3a 20 53 69 |r*(byteC|ount: Si|
|00001640| 7a 65 29 3a 20 50 74 72 | 20 30 32 30 48 2c 20 30 |ze): Ptr| 020H, 0|
|00001650| 31 46 48 2c 20 30 41 33 | 48 2c 20 30 31 45 48 2c |1FH, 0A3|H, 01EH,|
|00001660| 20 30 32 45 48 2c 20 30 | 38 38 48 3b 0d 0d 50 52 | 02EH, 0|88H;..PR|
|00001670| 4f 43 45 44 55 52 45 20 | 5b 63 6f 64 65 5d 20 4e |OCEDURE |[code] N|
|00001680| 65 77 50 74 72 53 79 73 | 43 6c 65 61 72 2a 28 62 |ewPtrSys|Clear*(b|
|00001690| 79 74 65 43 6f 75 6e 74 | 3a 20 53 69 7a 65 29 3a |yteCount|: Size):|
|000016a0| 20 50 74 72 20 30 32 30 | 48 2c 20 30 31 46 48 2c | Ptr 020|H, 01FH,|
|000016b0| 20 30 41 37 48 2c 20 30 | 31 45 48 2c 20 30 32 45 | 0A7H, 0|1EH, 02E|
|000016c0| 48 2c 20 30 38 38 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 088H;|..PROCED|
|000016d0| 55 52 45 20 5b 63 6f 64 | 65 5d 20 50 74 72 5a 6f |URE [cod|e] PtrZo|
|000016e0| 6e 65 2a 28 70 3a 20 50 | 74 72 29 3a 20 54 48 7a |ne*(p: P|tr): THz|
|000016f0| 20 30 32 30 48 2c 20 30 | 35 46 48 2c 20 30 41 31 | 020H, 0|5FH, 0A1|
|00001700| 48 2c 20 30 34 38 48 2c | 20 30 32 45 48 2c 20 30 |H, 048H,| 02EH, 0|
|00001710| 38 38 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |88H;..PR|OCEDURE |
|00001720| 5b 63 6f 64 65 5d 20 4d | 61 78 42 6c 6f 63 6b 2a |[code] M|axBlock*|
|00001730| 28 29 3a 20 4c 4f 4e 47 | 49 4e 54 20 30 41 30 48 |(): LONG|INT 0A0H|
|00001740| 2c 20 30 36 31 48 2c 20 | 30 32 45 48 2c 20 30 38 |, 061H, |02EH, 08|
|00001750| 30 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |0H;..PRO|CEDURE [|
|00001760| 63 6f 64 65 5d 20 4d 61 | 78 42 6c 6f 63 6b 53 79 |code] Ma|xBlockSy|
|00001770| 73 2a 28 29 3a 20 4c 4f | 4e 47 49 4e 54 20 30 41 |s*(): LO|NGINT 0A|
|00001780| 34 48 2c 20 30 36 31 48 | 2c 20 30 32 45 48 2c 20 |4H, 061H|, 02EH, |
|00001790| 30 38 30 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |080H;..P|ROCEDURE|
|000017a0| 20 5b 63 6f 64 65 5d 20 | 53 74 61 63 6b 53 70 61 | [code] |StackSpa|
|000017b0| 63 65 2a 28 29 3a 20 4c | 4f 4e 47 49 4e 54 20 30 |ce*(): L|ONGINT 0|
|000017c0| 41 30 48 2c 20 30 36 35 | 48 2c 20 30 32 45 48 2c |A0H, 065|H, 02EH,|
|000017d0| 20 30 38 30 48 3b 0d 0d | 50 52 4f 43 45 44 55 52 | 080H;..|PROCEDUR|
|000017e0| 45 20 5b 63 6f 64 65 5d | 20 4e 65 77 45 6d 70 74 |E [code]| NewEmpt|
|000017f0| 79 48 61 6e 64 6c 65 2a | 28 29 3a 20 48 61 6e 64 |yHandle*|(): Hand|
|00001800| 6c 65 20 30 41 31 48 2c | 20 30 36 36 48 2c 20 30 |le 0A1H,| 066H, 0|
|00001810| 32 45 48 2c 20 30 38 38 | 48 3b 0d 0d 50 52 4f 43 |2EH, 088|H;..PROC|
|00001820| 45 44 55 52 45 20 5b 63 | 6f 64 65 5d 20 4e 65 77 |EDURE [c|ode] New|
|00001830| 45 6d 70 74 79 48 61 6e | 64 6c 65 53 79 73 2a 28 |EmptyHan|dleSys*(|
|00001840| 29 3a 20 48 61 6e 64 6c | 65 20 30 41 35 48 2c 20 |): Handl|e 0A5H, |
|00001850| 30 36 36 48 2c 20 30 32 | 45 48 2c 20 30 38 38 48 |066H, 02|EH, 088H|
|00001860| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|00001870| 64 65 5d 20 48 4c 6f 63 | 6b 2a 28 68 3a 20 48 61 |de] HLoc|k*(h: Ha|
|00001880| 6e 64 6c 65 29 20 30 32 | 30 48 2c 20 30 35 46 48 |ndle) 02|0H, 05FH|
|00001890| 2c 20 30 41 30 48 2c 20 | 30 32 39 48 3b 0d 0d 50 |, 0A0H, |029H;..P|
|000018a0| 52 4f 43 45 44 55 52 45 | 20 5b 63 6f 64 65 5d 20 |ROCEDURE| [code] |
|000018b0| 48 55 6e 6c 6f 63 6b 2a | 28 68 3a 20 48 61 6e 64 |HUnlock*|(h: Hand|
|000018c0| 6c 65 29 20 30 32 30 48 | 2c 20 30 35 46 48 2c 20 |le) 020H|, 05FH, |
|000018d0| 30 41 30 48 2c 20 30 32 | 41 48 3b 0d 0d 50 52 4f |0A0H, 02|AH;..PRO|
|000018e0| 43 45 44 55 52 45 20 5b | 63 6f 64 65 5d 20 48 50 |CEDURE [|code] HP|
|000018f0| 75 72 67 65 2a 28 68 3a | 20 48 61 6e 64 6c 65 29 |urge*(h:| Handle)|
|00001900| 20 30 32 30 48 2c 20 30 | 35 46 48 2c 20 30 41 30 | 020H, 0|5FH, 0A0|
|00001910| 48 2c 20 30 34 39 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 049H;|..PROCED|
|00001920| 55 52 45 20 5b 63 6f 64 | 65 5d 20 48 4e 6f 50 75 |URE [cod|e] HNoPu|
|00001930| 72 67 65 2a 28 68 3a 20 | 48 61 6e 64 6c 65 29 20 |rge*(h: |Handle) |
|00001940| 30 32 30 48 2c 20 30 35 | 46 48 2c 20 30 41 30 48 |020H, 05|FH, 0A0H|
|00001950| 2c 20 30 34 41 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 04AH;.|.PROCEDU|
|00001960| 52 45 20 5b 63 6f 64 65 | 5d 20 48 4c 6f 63 6b 48 |RE [code|] HLockH|
|00001970| 69 2a 28 68 3a 20 48 61 | 6e 64 6c 65 29 20 30 32 |i*(h: Ha|ndle) 02|
|00001980| 30 48 2c 20 30 35 46 48 | 2c 20 30 41 30 48 2c 20 |0H, 05FH|, 0A0H, |
|00001990| 30 36 34 48 2c 20 30 41 | 30 48 2c 20 30 32 39 48 |064H, 0A|0H, 029H|
|000019a0| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|000019b0| 64 65 5d 20 54 65 6d 70 | 4e 65 77 48 61 6e 64 6c |de] Temp|NewHandl|
|000019c0| 65 2a 28 6c 6f 67 69 63 | 61 6c 53 69 7a 65 3a 20 |e*(logic|alSize: |
|000019d0| 53 69 7a 65 3b 20 56 41 | 52 20 72 65 73 75 6c 74 |Size; VA|R result|
|000019e0| 43 6f 64 65 3a 20 4d 61 | 63 54 79 70 65 73 2e 4f |Code: Ma|cTypes.O|
|000019f0| 53 45 72 72 29 3a 20 48 | 61 6e 64 6c 65 20 30 33 |SErr): H|andle 03|
|00001a00| 46 48 2c 20 30 33 43 48 | 2c 20 30 30 30 48 2c 20 |FH, 03CH|, 000H, |
|00001a10| 30 31 44 48 2c 20 30 41 | 38 48 2c 20 30 38 46 48 |01DH, 0A|8H, 08FH|
|00001a20| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|00001a30| 64 65 5d 20 54 65 6d 70 | 4d 61 78 4d 65 6d 2a 28 |de] Temp|MaxMem*(|
|00001a40| 56 41 52 20 67 72 6f 77 | 3a 20 53 69 7a 65 29 3a |VAR grow|: Size):|
|00001a50| 20 53 69 7a 65 20 30 33 | 46 48 2c 20 30 33 43 48 | Size 03|FH, 03CH|
|00001a60| 2c 20 30 30 30 48 2c 20 | 30 31 35 48 2c 20 30 41 |, 000H, |015H, 0A|
|00001a70| 38 48 2c 20 30 38 46 48 | 3b 0d 0d 50 52 4f 43 45 |8H, 08FH|;..PROCE|
|00001a80| 44 55 52 45 20 5b 63 6f | 64 65 5d 20 54 65 6d 70 |DURE [co|de] Temp|
|00001a90| 46 72 65 65 4d 65 6d 2a | 28 29 3a 20 4c 4f 4e 47 |FreeMem*|(): LONG|
|00001aa0| 49 4e 54 20 30 33 46 48 | 2c 20 30 33 43 48 2c 20 |INT 03FH|, 03CH, |
|00001ab0| 30 30 30 48 2c 20 30 31 | 38 48 2c 20 30 41 38 48 |000H, 01|8H, 0A8H|
|00001ac0| 2c 20 30 38 46 48 3b 0d | 0d 28 2a 20 20 54 65 6d |, 08FH;.|.(*  Tem|
|00001ad0| 70 6f 72 61 72 79 20 4d | 65 6d 6f 72 79 20 72 6f |porary M|emory ro|
|00001ae0| 75 74 69 6e 65 73 20 72 | 65 6e 61 6d 65 64 2c 20 |utines r|enamed, |
|00001af0| 62 75 74 20 6f 62 73 6f | 6c 65 74 65 2c 20 69 6e |but obso|lete, in|
|00001b00| 20 53 79 73 74 65 6d 20 | 37 2e 30 20 61 6e 64 20 | System |7.0 and |
|00001b10| 6c 61 74 65 72 2e 20 20 | 2a 29 0d 50 52 4f 43 45 |later.  |*).PROCE|
|00001b20| 44 55 52 45 20 5b 63 6f | 64 65 5d 20 54 65 6d 70 |DURE [co|de] Temp|
|00001b30| 48 4c 6f 63 6b 2a 28 68 | 3a 20 48 61 6e 64 6c 65 |HLock*(h|: Handle|
|00001b40| 3b 20 56 41 52 20 72 65 | 73 75 6c 74 43 6f 64 65 |; VAR re|sultCode|
|00001b50| 3a 20 4d 61 63 54 79 70 | 65 73 2e 4f 53 45 72 72 |: MacTyp|es.OSErr|
|00001b60| 29 20 30 33 46 48 2c 20 | 30 33 43 48 2c 20 30 30 |) 03FH, |03CH, 00|
|00001b70| 30 48 2c 20 30 31 45 48 | 2c 20 30 41 38 48 2c 20 |0H, 01EH|, 0A8H, |
|00001b80| 30 38 46 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |08FH;..P|ROCEDURE|
|00001b90| 20 5b 63 6f 64 65 5d 20 | 54 65 6d 70 48 55 6e 6c | [code] |TempHUnl|
|00001ba0| 6f 63 6b 2a 28 68 3a 20 | 48 61 6e 64 6c 65 3b 20 |ock*(h: |Handle; |
|00001bb0| 56 41 52 20 72 65 73 75 | 6c 74 43 6f 64 65 3a 20 |VAR resu|ltCode: |
|00001bc0| 4d 61 63 54 79 70 65 73 | 2e 4f 53 45 72 72 29 20 |MacTypes|.OSErr) |
|00001bd0| 30 33 46 48 2c 20 30 33 | 43 48 2c 20 30 30 30 48 |03FH, 03|CH, 000H|
|00001be0| 2c 20 30 31 46 48 2c 20 | 30 41 38 48 2c 20 30 38 |, 01FH, |0A8H, 08|
|00001bf0| 46 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |FH;..PRO|CEDURE [|
|00001c00| 63 6f 64 65 5d 20 54 65 | 6d 70 44 69 73 70 6f 73 |code] Te|mpDispos|
|00001c10| 65 48 61 6e 64 6c 65 2a | 28 68 3a 20 48 61 6e 64 |eHandle*|(h: Hand|
|00001c20| 6c 65 3b 20 56 41 52 20 | 72 65 73 75 6c 74 43 6f |le; VAR |resultCo|
|00001c30| 64 65 3a 20 4d 61 63 54 | 79 70 65 73 2e 4f 53 45 |de: MacT|ypes.OSE|
|00001c40| 72 72 29 20 30 33 46 48 | 2c 20 30 33 43 48 2c 20 |rr) 03FH|, 03CH, |
|00001c50| 30 30 30 48 2c 20 30 32 | 30 48 2c 20 30 41 38 48 |000H, 02|0H, 0A8H|
|00001c60| 2c 20 30 38 46 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 08FH;.|.PROCEDU|
|00001c70| 52 45 20 5b 63 6f 64 65 | 5d 20 54 65 6d 70 54 6f |RE [code|] TempTo|
|00001c80| 70 4d 65 6d 2a 28 29 3a | 20 50 74 72 20 30 33 46 |pMem*():| Ptr 03F|
|00001c90| 48 2c 20 30 33 43 48 2c | 20 30 30 30 48 2c 20 30 |H, 03CH,| 000H, 0|
|00001ca0| 31 36 48 2c 20 30 41 38 | 48 2c 20 30 38 46 48 3b |16H, 0A8|H, 08FH;|
|00001cb0| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 63 6f 64 |..PROCED|URE [cod|
|00001cc0| 65 5d 20 49 6e 69 74 41 | 70 70 6c 5a 6f 6e 65 2a |e] InitA|pplZone*|
|00001cd0| 20 30 41 30 48 2c 20 30 | 32 43 48 3b 0d 0d 50 52 | 0A0H, 0|2CH;..PR|
|00001ce0| 4f 43 45 44 55 52 45 20 | 5b 63 6f 64 65 5d 20 69 |OCEDURE |[code] i|
|00001cf0| 6e 69 74 5a 6f 6e 65 20 | 30 41 30 48 2c 20 30 31 |nitZone |0A0H, 01|
|00001d00| 39 48 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 6e |9H;.PROC|EDURE [n|
|00001d10| 6f 73 74 6b 63 68 6b 5d | 20 49 6e 69 74 5a 6f 6e |ostkchk]| InitZon|
|00001d20| 65 2a 28 70 67 72 6f 77 | 5a 6f 6e 65 3a 20 47 72 |e*(pgrow|Zone: Gr|
|00001d30| 6f 77 5a 6f 6e 65 55 50 | 50 3b 20 63 6d 6f 72 65 |owZoneUP|P; cmore|
|00001d40| 4d 61 73 74 65 72 73 3a | 20 49 4e 54 45 47 45 52 |Masters:| INTEGER|
|00001d50| 3b 20 6c 69 6d 69 74 50 | 74 72 3a 20 50 74 72 3b |; limitP|tr: Ptr;|
|00001d60| 20 73 74 61 72 74 50 74 | 72 3a 20 50 74 72 29 3b | startPt|r: Ptr);|
|00001d70| 0d 42 45 47 49 4e 0d 09 | 53 59 53 54 45 4d 2e 50 |.BEGIN..|SYSTEM.P|
|00001d80| 55 54 52 45 47 28 38 2c | 20 53 59 53 54 45 4d 2e |UTREG(8,| SYSTEM.|
|00001d90| 41 44 52 28 73 74 61 72 | 74 50 74 72 29 29 3b 20 |ADR(star|tPtr)); |
|00001da0| 0d 09 69 6e 69 74 5a 6f | 6e 65 3b 0d 45 4e 44 20 |..initZo|ne;.END |
|00001db0| 49 6e 69 74 5a 6f 6e 65 | 3b 0d 0d 50 52 4f 43 45 |InitZone|;..PROCE|
|00001dc0| 44 55 52 45 20 5b 63 6f | 64 65 5d 20 53 65 74 5a |DURE [co|de] SetZ|
|00001dd0| 6f 6e 65 2a 28 68 7a 3a | 20 54 48 7a 29 20 30 32 |one*(hz:| THz) 02|
|00001de0| 30 48 2c 20 30 35 46 48 | 2c 20 30 41 30 48 2c 20 |0H, 05FH|, 0A0H, |
|00001df0| 30 31 42 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |01BH;..P|ROCEDURE|
|00001e00| 20 5b 63 6f 64 65 5d 20 | 43 6f 6d 70 61 63 74 4d | [code] |CompactM|
|00001e10| 65 6d 2a 28 63 62 4e 65 | 65 64 65 64 3a 20 53 69 |em*(cbNe|eded: Si|
|00001e20| 7a 65 29 3a 20 53 69 7a | 65 20 30 32 30 48 2c 20 |ze): Siz|e 020H, |
|00001e30| 30 31 46 48 2c 20 30 41 | 30 48 2c 20 30 34 43 48 |01FH, 0A|0H, 04CH|
|00001e40| 2c 20 30 32 45 48 2c 20 | 30 38 30 48 3b 0d 0d 50 |, 02EH, |080H;..P|
|00001e50| 52 4f 43 45 44 55 52 45 | 20 5b 63 6f 64 65 5d 20 |ROCEDURE| [code] |
|00001e60| 43 6f 6d 70 61 63 74 4d | 65 6d 53 79 73 2a 28 63 |CompactM|emSys*(c|
|00001e70| 62 4e 65 65 64 65 64 3a | 20 53 69 7a 65 29 3a 20 |bNeeded:| Size): |
|00001e80| 53 69 7a 65 20 30 32 30 | 48 2c 20 30 31 46 48 2c |Size 020|H, 01FH,|
|00001e90| 20 30 41 34 48 2c 20 30 | 34 43 48 2c 20 30 32 45 | 0A4H, 0|4CH, 02E|
|00001ea0| 48 2c 20 30 38 30 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 080H;|..PROCED|
|00001eb0| 55 52 45 20 5b 63 6f 64 | 65 5d 20 50 75 72 67 65 |URE [cod|e] Purge|
|00001ec0| 4d 65 6d 2a 28 63 62 4e | 65 65 64 65 64 3a 20 53 |Mem*(cbN|eeded: S|
|00001ed0| 69 7a 65 29 20 30 32 30 | 48 2c 20 30 31 46 48 2c |ize) 020|H, 01FH,|
|00001ee0| 20 30 41 30 48 2c 20 30 | 34 44 48 3b 0d 0d 50 52 | 0A0H, 0|4DH;..PR|
|00001ef0| 4f 43 45 44 55 52 45 20 | 5b 63 6f 64 65 5d 20 50 |OCEDURE |[code] P|
|00001f00| 75 72 67 65 4d 65 6d 53 | 79 73 2a 28 63 62 4e 65 |urgeMemS|ys*(cbNe|
|00001f10| 65 64 65 64 3a 20 53 69 | 7a 65 29 20 30 32 30 48 |eded: Si|ze) 020H|
|00001f20| 2c 20 30 31 46 48 2c 20 | 30 41 34 48 2c 20 30 34 |, 01FH, |0A4H, 04|
|00001f30| 44 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |DH;..PRO|CEDURE [|
|00001f40| 63 6f 64 65 5d 20 46 72 | 65 65 4d 65 6d 2a 28 29 |code] Fr|eeMem*()|
|00001f50| 3a 20 4c 4f 4e 47 49 4e | 54 20 30 41 30 48 2c 20 |: LONGIN|T 0A0H, |
|00001f60| 30 31 43 48 2c 20 30 32 | 45 48 2c 20 30 38 30 48 |01CH, 02|EH, 080H|
|00001f70| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|00001f80| 64 65 5d 20 46 72 65 65 | 4d 65 6d 53 79 73 2a 28 |de] Free|MemSys*(|
|00001f90| 29 3a 20 4c 4f 4e 47 49 | 4e 54 20 30 41 34 48 2c |): LONGI|NT 0A4H,|
|00001fa0| 20 30 31 43 48 2c 20 30 | 32 45 48 2c 20 30 38 30 | 01CH, 0|2EH, 080|
|00001fb0| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 63 |H;..PROC|EDURE [c|
|00001fc0| 6f 64 65 5d 20 52 65 73 | 65 72 76 65 4d 65 6d 2a |ode] Res|erveMem*|
|00001fd0| 28 63 62 4e 65 65 64 65 | 64 3a 20 53 69 7a 65 29 |(cbNeede|d: Size)|
|00001fe0| 20 30 32 30 48 2c 20 30 | 31 46 48 2c 20 30 41 30 | 020H, 0|1FH, 0A0|
|00001ff0| 48 2c 20 30 34 30 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 040H;|..PROCED|
|00002000| 55 52 45 20 5b 63 6f 64 | 65 5d 20 52 65 73 65 72 |URE [cod|e] Reser|
|00002010| 76 65 4d 65 6d 53 79 73 | 2a 28 63 62 4e 65 65 64 |veMemSys|*(cbNeed|
|00002020| 65 64 3a 20 53 69 7a 65 | 29 20 30 32 30 48 2c 20 |ed: Size|) 020H, |
|00002030| 30 31 46 48 2c 20 30 41 | 34 48 2c 20 30 34 30 48 |01FH, 0A|4H, 040H|
|00002040| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|00002050| 64 65 5d 20 4d 61 78 4d | 65 6d 2a 28 56 41 52 20 |de] MaxM|em*(VAR |
|00002060| 67 72 6f 77 3a 20 53 69 | 7a 65 29 3a 20 53 69 7a |grow: Si|ze): Siz|
|00002070| 65 20 30 32 32 48 2c 20 | 30 35 46 48 2c 20 30 41 |e 022H, |05FH, 0A|
|00002080| 31 48 2c 20 30 31 44 48 | 2c 20 30 32 32 48 2c 20 |1H, 01DH|, 022H, |
|00002090| 30 38 38 48 2c 20 30 32 | 45 48 2c 20 30 38 30 48 |088H, 02|EH, 080H|
|000020a0| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|000020b0| 64 65 5d 20 4d 61 78 4d | 65 6d 53 79 73 2a 28 56 |de] MaxM|emSys*(V|
|000020c0| 41 52 20 67 72 6f 77 3a | 20 53 69 7a 65 29 3a 20 |AR grow:| Size): |
|000020d0| 53 69 7a 65 20 30 32 32 | 48 2c 20 30 35 46 48 2c |Size 022|H, 05FH,|
|000020e0| 20 30 41 35 48 2c 20 30 | 31 44 48 2c 20 30 32 32 | 0A5H, 0|1DH, 022|
|000020f0| 48 2c 20 30 38 38 48 2c | 20 30 32 45 48 2c 20 30 |H, 088H,| 02EH, 0|
|00002100| 38 30 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |80H;..PR|OCEDURE |
|00002110| 5b 63 6f 64 65 5d 20 53 | 65 74 47 72 6f 77 5a 6f |[code] S|etGrowZo|
|00002120| 6e 65 2a 28 67 72 6f 77 | 5a 6f 6e 65 3a 20 47 72 |ne*(grow|Zone: Gr|
|00002130| 6f 77 5a 6f 6e 65 55 50 | 50 29 20 30 32 30 48 2c |owZoneUP|P) 020H,|
|00002140| 20 30 35 46 48 2c 20 30 | 41 30 48 2c 20 30 34 42 | 05FH, 0|A0H, 04B|
|00002150| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 63 |H;..PROC|EDURE [c|
|00002160| 6f 64 65 5d 20 53 65 74 | 41 70 70 6c 4c 69 6d 69 |ode] Set|ApplLimi|
|00002170| 74 2a 28 7a 6f 6e 65 4c | 69 6d 69 74 3a 20 50 74 |t*(zoneL|imit: Pt|
|00002180| 72 29 20 30 32 30 48 2c | 20 30 35 46 48 2c 20 30 |r) 020H,| 05FH, 0|
|00002190| 41 30 48 2c 20 30 32 44 | 48 3b 0d 0d 50 52 4f 43 |A0H, 02D|H;..PROC|
|000021a0| 45 44 55 52 45 20 5b 63 | 6f 64 65 5d 20 4d 6f 76 |EDURE [c|ode] Mov|
|000021b0| 65 48 48 69 2a 28 68 3a | 20 48 61 6e 64 6c 65 29 |eHHi*(h:| Handle)|
|000021c0| 20 30 32 30 48 2c 20 30 | 35 46 48 2c 20 30 41 30 | 020H, 0|5FH, 0A0|
|000021d0| 48 2c 20 30 36 34 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 064H;|..PROCED|
|000021e0| 55 52 45 20 5b 63 6f 64 | 65 5d 20 44 69 73 70 6f |URE [cod|e] Dispo|
|000021f0| 73 65 50 74 72 2a 28 70 | 3a 20 50 74 72 29 20 30 |sePtr*(p|: Ptr) 0|
|00002200| 32 30 48 2c 20 30 35 46 | 48 2c 20 30 41 30 48 2c |20H, 05F|H, 0A0H,|
|00002210| 20 30 31 46 48 3b 0d 0d | 50 52 4f 43 45 44 55 52 | 01FH;..|PROCEDUR|
|00002220| 45 20 5b 63 6f 64 65 5d | 20 67 65 74 50 74 72 53 |E [code]| getPtrS|
|00002230| 69 7a 65 20 30 41 30 48 | 2c 20 30 32 31 48 3b 0d |ize 0A0H|, 021H;.|
|00002240| 50 52 4f 43 45 44 55 52 | 45 20 47 65 74 50 74 72 |PROCEDUR|E GetPtr|
|00002250| 53 69 7a 65 2a 28 70 3a | 20 50 74 72 29 3a 20 53 |Size*(p:| Ptr): S|
|00002260| 69 7a 65 3b 0d 09 56 41 | 52 20 72 65 73 3a 20 4c |ize;..VA|R res: L|
|00002270| 4f 4e 47 49 4e 54 3b 0d | 42 45 47 49 4e 0d 09 53 |ONGINT;.|BEGIN..S|
|00002280| 59 53 54 45 4d 2e 50 55 | 54 52 45 47 28 38 2c 20 |YSTEM.PU|TREG(8, |
|00002290| 70 29 3b 0d 09 67 65 74 | 50 74 72 53 69 7a 65 3b |p);..get|PtrSize;|
|000022a0| 0d 09 53 59 53 54 45 4d | 2e 47 45 54 52 45 47 28 |..SYSTEM|.GETREG(|
|000022b0| 30 2c 20 72 65 73 29 3b | 0d 09 49 46 20 72 65 73 |0, res);|..IF res|
|000022c0| 20 3c 20 30 20 54 48 45 | 4e 0d 09 09 52 45 54 55 | < 0 THE|N...RETU|
|000022d0| 52 4e 20 30 0d 09 45 4e | 44 3b 0d 09 52 45 54 55 |RN 0..EN|D;..RETU|
|000022e0| 52 4e 20 72 65 73 3b 0d | 45 4e 44 20 47 65 74 50 |RN res;.|END GetP|
|000022f0| 74 72 53 69 7a 65 3b 0d | 0d 50 52 4f 43 45 44 55 |trSize;.|.PROCEDU|
|00002300| 52 45 20 5b 63 6f 64 65 | 5d 20 53 65 74 50 74 72 |RE [code|] SetPtr|
|00002310| 53 69 7a 65 2a 28 70 3a | 20 50 74 72 3b 20 6e 65 |Size*(p:| Ptr; ne|
|00002320| 77 53 69 7a 65 3a 20 53 | 69 7a 65 29 20 30 32 30 |wSize: S|ize) 020|
|00002330| 48 2c 20 30 31 46 48 2c | 20 30 32 30 48 2c 20 30 |H, 01FH,| 020H, 0|
|00002340| 35 46 48 2c 20 30 41 30 | 48 2c 20 30 32 30 48 3b |5FH, 0A0|H, 020H;|
|00002350| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 63 6f 64 |..PROCED|URE [cod|
|00002360| 65 5d 20 44 69 73 70 6f | 73 65 48 61 6e 64 6c 65 |e] Dispo|seHandle|
|00002370| 2a 28 68 3a 20 48 61 6e | 64 6c 65 29 20 30 32 30 |*(h: Han|dle) 020|
|00002380| 48 2c 20 30 35 46 48 2c | 20 30 41 30 48 2c 20 30 |H, 05FH,| 0A0H, 0|
|00002390| 32 33 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |23H;..PR|OCEDURE |
|000023a0| 5b 63 6f 64 65 5d 20 53 | 65 74 48 61 6e 64 6c 65 |[code] S|etHandle|
|000023b0| 53 69 7a 65 2a 28 68 3a | 20 48 61 6e 64 6c 65 3b |Size*(h:| Handle;|
|000023c0| 20 6e 65 77 53 69 7a 65 | 3a 20 53 69 7a 65 29 20 | newSize|: Size) |
|000023d0| 30 32 30 48 2c 20 30 31 | 46 48 2c 20 30 32 30 48 |020H, 01|FH, 020H|
|000023e0| 2c 20 30 35 46 48 2c 20 | 30 41 30 48 2c 20 30 32 |, 05FH, |0A0H, 02|
|000023f0| 34 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |4H;..PRO|CEDURE [|
|00002400| 63 6f 64 65 5d 20 67 65 | 74 48 61 6e 64 6c 65 53 |code] ge|tHandleS|
|00002410| 69 7a 65 20 30 41 30 48 | 2c 20 30 32 35 48 3b 0d |ize 0A0H|, 025H;.|
|00002420| 50 52 4f 43 45 44 55 52 | 45 20 47 65 74 48 61 6e |PROCEDUR|E GetHan|
|00002430| 64 6c 65 53 69 7a 65 2a | 28 68 3a 20 48 61 6e 64 |dleSize*|(h: Hand|
|00002440| 6c 65 29 3a 20 53 69 7a | 65 3b 0d 09 56 41 52 20 |le): Siz|e;..VAR |
|00002450| 72 65 73 3a 20 4c 4f 4e | 47 49 4e 54 3b 0d 42 45 |res: LON|GINT;.BE|
|00002460| 47 49 4e 0d 09 53 59 53 | 54 45 4d 2e 50 55 54 52 |GIN..SYS|TEM.PUTR|
|00002470| 45 47 28 38 2c 20 68 29 | 3b 0d 09 67 65 74 48 61 |EG(8, h)|;..getHa|
|00002480| 6e 64 6c 65 53 69 7a 65 | 3b 0d 09 53 59 53 54 45 |ndleSize|;..SYSTE|
|00002490| 4d 2e 47 45 54 52 45 47 | 28 30 2c 20 72 65 73 29 |M.GETREG|(0, res)|
|000024a0| 3b 0d 09 49 46 20 72 65 | 73 20 3c 20 30 20 54 48 |;..IF re|s < 0 TH|
|000024b0| 45 4e 0d 09 09 52 45 54 | 55 52 4e 20 30 0d 09 45 |EN...RET|URN 0..E|
|000024c0| 4e 44 3b 0d 09 52 45 54 | 55 52 4e 20 72 65 73 3b |ND;..RET|URN res;|
|000024d0| 0d 45 4e 44 20 47 65 74 | 48 61 6e 64 6c 65 53 69 |.END Get|HandleSi|
|000024e0| 7a 65 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |ze;..PRO|CEDURE [|
|000024f0| 63 6f 64 65 5d 20 52 65 | 61 6c 6c 6f 63 61 74 65 |code] Re|allocate|
|00002500| 48 61 6e 64 6c 65 2a 28 | 68 3a 20 48 61 6e 64 6c |Handle*(|h: Handl|
|00002510| 65 3b 20 62 79 74 65 43 | 6f 75 6e 74 3a 20 53 69 |e; byteC|ount: Si|
|00002520| 7a 65 29 20 30 32 30 48 | 2c 20 30 31 46 48 2c 20 |ze) 020H|, 01FH, |
|00002530| 30 32 30 48 2c 20 30 35 | 46 48 2c 20 30 41 30 48 |020H, 05|FH, 0A0H|
|00002540| 2c 20 30 32 37 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 027H;.|.PROCEDU|
|00002550| 52 45 20 5b 63 6f 64 65 | 5d 20 45 6d 70 74 79 48 |RE [code|] EmptyH|
|00002560| 61 6e 64 6c 65 2a 28 68 | 3a 20 48 61 6e 64 6c 65 |andle*(h|: Handle|
|00002570| 29 20 30 32 30 48 2c 20 | 30 35 46 48 2c 20 30 41 |) 020H, |05FH, 0A|
|00002580| 30 48 2c 20 30 32 42 48 | 3b 0d 0d 50 52 4f 43 45 |0H, 02BH|;..PROCE|
|00002590| 44 55 52 45 20 5b 63 6f | 64 65 5d 20 48 53 65 74 |DURE [co|de] HSet|
|000025a0| 52 42 69 74 2a 28 68 3a | 20 48 61 6e 64 6c 65 29 |RBit*(h:| Handle)|
|000025b0| 20 30 32 30 48 2c 20 30 | 35 46 48 2c 20 30 41 30 | 020H, 0|5FH, 0A0|
|000025c0| 48 2c 20 30 36 37 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 067H;|..PROCED|
|000025d0| 55 52 45 20 5b 63 6f 64 | 65 5d 20 48 43 6c 72 52 |URE [cod|e] HClrR|
|000025e0| 42 69 74 2a 28 68 3a 20 | 48 61 6e 64 6c 65 29 20 |Bit*(h: |Handle) |
|000025f0| 30 32 30 48 2c 20 30 35 | 46 48 2c 20 30 41 30 48 |020H, 05|FH, 0A0H|
|00002600| 2c 20 30 36 38 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 068H;.|.PROCEDU|
|00002610| 52 45 20 5b 63 6f 64 65 | 5d 20 4d 6f 72 65 4d 61 |RE [code|] MoreMa|
|00002620| 73 74 65 72 73 2a 20 30 | 41 30 48 2c 20 30 33 36 |sters* 0|A0H, 036|
|00002630| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 63 |H;..PROC|EDURE [c|
|00002640| 6f 64 65 5d 20 42 6c 6f | 63 6b 4d 6f 76 65 2a 28 |ode] Blo|ckMove*(|
|00002650| 73 72 63 50 74 72 3a 20 | 50 74 72 3b 20 64 65 73 |srcPtr: |Ptr; des|
|00002660| 74 50 74 72 3a 20 50 74 | 72 3b 20 62 79 74 65 43 |tPtr: Pt|r; byteC|
|00002670| 6f 75 6e 74 3a 20 53 69 | 7a 65 29 20 30 32 30 48 |ount: Si|ze) 020H|
|00002680| 2c 20 30 31 46 48 2c 20 | 30 32 32 48 2c 20 30 35 |, 01FH, |022H, 05|
|00002690| 46 48 2c 20 30 32 30 48 | 2c 20 30 35 46 48 2c 20 |FH, 020H|, 05FH, |
|000026a0| 30 41 30 48 2c 20 30 32 | 45 48 3b 0d 0d 50 52 4f |0A0H, 02|EH;..PRO|
|000026b0| 43 45 44 55 52 45 20 5b | 63 6f 64 65 5d 20 42 6c |CEDURE [|code] Bl|
|000026c0| 6f 63 6b 4d 6f 76 65 44 | 61 74 61 2a 28 73 72 63 |ockMoveD|ata*(src|
|000026d0| 50 74 72 3a 20 50 74 72 | 3b 20 64 65 73 74 50 74 |Ptr: Ptr|; destPt|
|000026e0| 72 3a 20 50 74 72 3b 20 | 62 79 74 65 43 6f 75 6e |r: Ptr; |byteCoun|
|000026f0| 74 3a 20 53 69 7a 65 29 | 20 30 32 30 48 2c 20 30 |t: Size)| 020H, 0|
|00002700| 31 46 48 2c 20 30 32 32 | 48 2c 20 30 35 46 48 2c |1FH, 022|H, 05FH,|
|00002710| 20 30 32 30 48 2c 20 30 | 35 46 48 2c 20 30 41 32 | 020H, 0|5FH, 0A2|
|00002720| 48 2c 20 30 32 45 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 02EH;|..PROCED|
|00002730| 55 52 45 20 5b 63 6f 64 | 65 5d 20 70 75 72 67 65 |URE [cod|e] purge|
|00002740| 53 70 61 63 65 20 30 41 | 30 48 2c 20 30 36 32 48 |Space 0A|0H, 062H|
|00002750| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 50 75 72 67 |;.PROCED|URE Purg|
|00002760| 65 53 70 61 63 65 2a 28 | 56 41 52 20 74 6f 74 61 |eSpace*(|VAR tota|
|00002770| 6c 3a 20 4c 4f 4e 47 49 | 4e 54 3b 20 56 41 52 20 |l: LONGI|NT; VAR |
|00002780| 63 6f 6e 74 69 67 3a 20 | 4c 4f 4e 47 49 4e 54 29 |contig: |LONGINT)|
|00002790| 3b 0d 42 45 47 49 4e 0d | 09 70 75 72 67 65 53 70 |;.BEGIN.|.purgeSp|
|000027a0| 61 63 65 3b 0d 09 53 59 | 53 54 45 4d 2e 47 45 54 |ace;..SY|STEM.GET|
|000027b0| 52 45 47 28 30 2c 20 74 | 6f 74 61 6c 29 3b 0d 09 |REG(0, t|otal);..|
|000027c0| 53 59 53 54 45 4d 2e 47 | 45 54 52 45 47 28 38 2c |SYSTEM.G|ETREG(8,|
|000027d0| 20 63 6f 6e 74 69 67 29 | 0d 45 4e 44 20 50 75 72 | contig)|.END Pur|
|000027e0| 67 65 53 70 61 63 65 3b | 0d 0d 50 52 4f 43 45 44 |geSpace;|..PROCED|
|000027f0| 55 52 45 20 5b 63 6f 64 | 65 5d 20 48 47 65 74 53 |URE [cod|e] HGetS|
|00002800| 74 61 74 65 2a 28 68 3a | 20 48 61 6e 64 6c 65 29 |tate*(h:| Handle)|
|00002810| 3a 20 53 48 4f 52 54 49 | 4e 54 20 30 32 30 48 2c |: SHORTI|NT 020H,|
|00002820| 20 30 35 46 48 2c 20 30 | 41 30 48 2c 20 30 36 39 | 05FH, 0|A0H, 069|
|00002830| 48 2c 20 30 31 45 48 2c | 20 30 38 30 48 3b 0d 0d |H, 01EH,| 080H;..|
|00002840| 50 52 4f 43 45 44 55 52 | 45 20 5b 63 6f 64 65 5d |PROCEDUR|E [code]|
|00002850| 20 48 53 65 74 53 74 61 | 74 65 2a 28 68 3a 20 48 | HSetSta|te*(h: H|
|00002860| 61 6e 64 6c 65 3b 20 66 | 6c 61 67 73 3a 20 43 48 |andle; f|lags: CH|
|00002870| 41 52 29 20 30 31 30 48 | 2c 20 30 31 46 48 2c 20 |AR) 010H|, 01FH, |
|00002880| 30 32 30 48 2c 20 30 35 | 46 48 2c 20 30 41 30 48 |020H, 05|FH, 0A0H|
|00002890| 2c 20 30 36 41 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 06AH;.|.PROCEDU|
|000028a0| 52 45 20 5b 63 6f 64 65 | 5d 20 53 65 74 41 70 70 |RE [code|] SetApp|
|000028b0| 6c 42 61 73 65 2a 28 73 | 74 61 72 74 50 74 72 3a |lBase*(s|tartPtr:|
|000028c0| 20 50 74 72 29 20 30 32 | 30 48 2c 20 30 35 46 48 | Ptr) 02|0H, 05FH|
|000028d0| 2c 20 30 41 30 48 2c 20 | 30 35 37 48 3b 0d 0d 50 |, 0A0H, |057H;..P|
|000028e0| 52 4f 43 45 44 55 52 45 | 20 5b 63 6f 64 65 5d 20 |ROCEDURE| [code] |
|000028f0| 4d 61 78 41 70 70 6c 5a | 6f 6e 65 2a 20 30 41 30 |MaxApplZ|one* 0A0|
|00002900| 48 2c 20 30 36 33 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 063H;|..PROCED|
|00002910| 55 52 45 20 5b 63 6f 64 | 65 5d 20 48 6f 6c 64 4d |URE [cod|e] HoldM|
|00002920| 65 6d 6f 72 79 2a 28 61 | 64 64 72 65 73 73 3a 20 |emory*(a|ddress: |
|00002930| 50 74 72 3b 20 63 6f 75 | 6e 74 3a 20 4c 4f 4e 47 |Ptr; cou|nt: LONG|
|00002940| 49 4e 54 29 3a 20 4d 61 | 63 54 79 70 65 73 2e 4f |INT): Ma|cTypes.O|
|00002950| 53 45 72 72 20 30 32 32 | 48 2c 20 30 35 46 48 2c |SErr 022|H, 05FH,|
|00002960| 20 30 32 30 48 2c 20 30 | 35 46 48 2c 20 30 37 30 | 020H, 0|5FH, 070|
|00002970| 48 2c 20 30 30 30 48 2c | 20 30 41 30 48 2c 20 30 |H, 000H,| 0A0H, 0|
|00002980| 35 43 48 2c 20 30 33 45 | 48 2c 20 30 38 30 48 3b |5CH, 03E|H, 080H;|
|00002990| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 63 6f 64 |..PROCED|URE [cod|
|000029a0| 65 5d 20 55 6e 68 6f 6c | 64 4d 65 6d 6f 72 79 2a |e] Unhol|dMemory*|
|000029b0| 28 61 64 64 72 65 73 73 | 3a 20 50 74 72 3b 20 63 |(address|: Ptr; c|
|000029c0| 6f 75 6e 74 3a 20 4c 4f | 4e 47 49 4e 54 29 3a 20 |ount: LO|NGINT): |
|000029d0| 4d 61 63 54 79 70 65 73 | 2e 4f 53 45 72 72 20 30 |MacTypes|.OSErr 0|
|000029e0| 32 32 48 2c 20 30 35 46 | 48 2c 20 30 32 30 48 2c |22H, 05F|H, 020H,|
|000029f0| 20 30 35 46 48 2c 20 30 | 37 30 48 2c 20 30 30 31 | 05FH, 0|70H, 001|
|00002a00| 48 2c 20 30 41 30 48 2c | 20 30 35 43 48 2c 20 30 |H, 0A0H,| 05CH, 0|
|00002a10| 33 45 48 2c 20 30 38 30 | 48 3b 0d 0d 50 52 4f 43 |3EH, 080|H;..PROC|
|00002a20| 45 44 55 52 45 20 5b 63 | 6f 64 65 5d 20 4c 6f 63 |EDURE [c|ode] Loc|
|00002a30| 6b 4d 65 6d 6f 72 79 2a | 28 61 64 64 72 65 73 73 |kMemory*|(address|
|00002a40| 3a 20 50 74 72 3b 20 63 | 6f 75 6e 74 3a 20 4c 4f |: Ptr; c|ount: LO|
|00002a50| 4e 47 49 4e 54 29 3a 20 | 4d 61 63 54 79 70 65 73 |NGINT): |MacTypes|
|00002a60| 2e 4f 53 45 72 72 20 30 | 32 32 48 2c 20 30 35 46 |.OSErr 0|22H, 05F|
|00002a70| 48 2c 20 30 32 30 48 2c | 20 30 35 46 48 2c 20 30 |H, 020H,| 05FH, 0|
|00002a80| 37 30 48 2c 20 30 30 32 | 48 2c 20 30 41 30 48 2c |70H, 002|H, 0A0H,|
|00002a90| 20 30 35 43 48 2c 20 30 | 33 45 48 2c 20 30 38 30 | 05CH, 0|3EH, 080|
|00002aa0| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 63 |H;..PROC|EDURE [c|
|00002ab0| 6f 64 65 5d 20 4c 6f 63 | 6b 4d 65 6d 6f 72 79 43 |ode] Loc|kMemoryC|
|00002ac0| 6f 6e 74 69 67 75 6f 75 | 73 2a 28 61 64 64 72 65 |ontiguou|s*(addre|
|00002ad0| 73 73 3a 20 50 74 72 3b | 20 63 6f 75 6e 74 3a 20 |ss: Ptr;| count: |
|00002ae0| 4c 4f 4e 47 49 4e 54 29 | 3a 20 4d 61 63 54 79 70 |LONGINT)|: MacTyp|
|00002af0| 65 73 2e 4f 53 45 72 72 | 20 30 32 32 48 2c 20 30 |es.OSErr| 022H, 0|
|00002b00| 35 46 48 2c 20 30 32 30 | 48 2c 20 30 35 46 48 2c |5FH, 020|H, 05FH,|
|00002b10| 20 30 37 30 48 2c 20 30 | 30 34 48 2c 20 30 41 30 | 070H, 0|04H, 0A0|
|00002b20| 48 2c 20 30 35 43 48 2c | 20 30 33 45 48 2c 20 30 |H, 05CH,| 03EH, 0|
|00002b30| 38 30 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |80H;..PR|OCEDURE |
|00002b40| 5b 63 6f 64 65 5d 20 55 | 6e 6c 6f 63 6b 4d 65 6d |[code] U|nlockMem|
|00002b50| 6f 72 79 2a 28 61 64 64 | 72 65 73 73 3a 20 50 74 |ory*(add|ress: Pt|
|00002b60| 72 3b 20 63 6f 75 6e 74 | 3a 20 4c 4f 4e 47 49 4e |r; count|: LONGIN|
|00002b70| 54 29 3a 20 4d 61 63 54 | 79 70 65 73 2e 4f 53 45 |T): MacT|ypes.OSE|
|00002b80| 72 72 20 30 32 32 48 2c | 20 30 35 46 48 2c 20 30 |rr 022H,| 05FH, 0|
|00002b90| 32 30 48 2c 20 30 35 46 | 48 2c 20 30 37 30 48 2c |20H, 05F|H, 070H,|
|00002ba0| 20 30 30 33 48 2c 20 30 | 41 30 48 2c 20 30 35 43 | 003H, 0|A0H, 05C|
|00002bb0| 48 2c 20 30 33 45 48 2c | 20 30 38 30 48 3b 0d 0d |H, 03EH,| 080H;..|
|00002bc0| 50 52 4f 43 45 44 55 52 | 45 20 5b 63 6f 64 65 5d |PROCEDUR|E [code]|
|00002bd0| 20 4d 65 6d 6f 72 79 44 | 69 73 70 61 74 63 68 41 | MemoryD|ispatchA|
|00002be0| 30 52 65 73 75 6c 74 20 | 30 41 31 48 2c 20 30 35 |0Result |0A1H, 05|
|00002bf0| 43 48 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 6e |CH;.PROC|EDURE [n|
|00002c00| 6f 73 74 6b 63 68 6b 5d | 20 47 65 74 50 68 79 73 |ostkchk]| GetPhys|
|00002c10| 69 63 61 6c 2a 28 56 41 | 52 20 61 64 64 72 65 73 |ical*(VA|R addres|
|00002c20| 73 65 73 3a 20 4c 6f 67 | 69 63 61 6c 54 6f 50 68 |ses: Log|icalToPh|
|00002c30| 79 73 69 63 61 6c 54 61 | 62 6c 65 3b 20 56 41 52 |ysicalTa|ble; VAR|
|00002c40| 20 70 68 79 73 69 63 61 | 6c 45 6e 74 72 79 43 6f | physica|lEntryCo|
|00002c50| 75 6e 74 3a 20 4c 4f 4e | 47 49 4e 54 29 3a 20 4d |unt: LON|GINT): M|
|00002c60| 61 63 54 79 70 65 73 2e | 4f 53 45 72 72 3b 0d 56 |acTypes.|OSErr;.V|
|00002c70| 41 52 20 72 65 73 3a 20 | 4d 61 63 54 79 70 65 73 |AR res: |MacTypes|
|00002c80| 2e 4f 53 45 72 72 3b 0d | 42 45 47 49 4e 0d 09 53 |.OSErr;.|BEGIN..S|
|00002c90| 59 53 54 45 4d 2e 50 55 | 54 52 45 47 28 30 2c 20 |YSTEM.PU|TREG(0, |
|00002ca0| 4c 4f 4e 47 28 4c 4f 4e | 47 28 30 30 30 30 35 48 |LONG(LON|G(00005H|
|00002cb0| 29 29 29 3b 0d 09 53 59 | 53 54 45 4d 2e 50 55 54 |)));..SY|STEM.PUT|
|00002cc0| 52 45 47 28 38 2c 20 53 | 59 53 54 45 4d 2e 41 44 |REG(8, S|YSTEM.AD|
|00002cd0| 52 28 61 64 64 72 65 73 | 73 65 73 29 29 3b 0d 09 |R(addres|ses));..|
|00002ce0| 53 59 53 54 45 4d 2e 50 | 55 54 52 45 47 28 39 2c |SYSTEM.P|UTREG(9,|
|00002cf0| 20 70 68 79 73 69 63 61 | 6c 45 6e 74 72 79 43 6f | physica|lEntryCo|
|00002d00| 75 6e 74 29 3b 0d 09 4d | 65 6d 6f 72 79 44 69 73 |unt);..M|emoryDis|
|00002d10| 70 61 74 63 68 41 30 52 | 65 73 75 6c 74 3b 0d 09 |patchA0R|esult;..|
|00002d20| 53 59 53 54 45 4d 2e 47 | 45 54 52 45 47 28 30 2c |SYSTEM.G|ETREG(0,|
|00002d30| 20 72 65 73 29 3b 0d 09 | 53 59 53 54 45 4d 2e 47 | res);..|SYSTEM.G|
|00002d40| 45 54 52 45 47 28 39 2c | 20 70 68 79 73 69 63 61 |ETREG(9,| physica|
|00002d50| 6c 45 6e 74 72 79 43 6f | 75 6e 74 29 3b 0d 09 52 |lEntryCo|unt);..R|
|00002d60| 45 54 55 52 4e 20 72 65 | 73 0d 45 4e 44 20 47 65 |ETURN re|s.END Ge|
|00002d70| 74 50 68 79 73 69 63 61 | 6c 3b 0d 0d 50 52 4f 43 |tPhysica|l;..PROC|
|00002d80| 45 44 55 52 45 20 5b 63 | 6f 64 65 5d 20 44 65 66 |EDURE [c|ode] Def|
|00002d90| 65 72 55 73 65 72 46 6e | 2a 28 75 73 65 72 46 75 |erUserFn|*(userFu|
|00002da0| 6e 63 74 69 6f 6e 3a 20 | 55 73 65 72 46 6e 55 50 |nction: |UserFnUP|
|00002db0| 50 3b 20 61 72 67 75 6d | 65 6e 74 3a 20 50 74 72 |P; argum|ent: Ptr|
|00002dc0| 29 3a 20 4d 61 63 54 79 | 70 65 73 2e 4f 53 45 72 |): MacTy|pes.OSEr|
|00002dd0| 72 20 30 32 30 48 2c 20 | 30 31 46 48 2c 20 30 32 |r 020H, |01FH, 02|
|00002de0| 30 48 2c 20 30 35 46 48 | 2c 20 30 41 30 48 2c 20 |0H, 05FH|, 0A0H, |
|00002df0| 30 38 46 48 2c 20 30 33 | 45 48 2c 20 30 38 30 48 |08FH, 03|EH, 080H|
|00002e00| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|00002e10| 64 65 5d 20 44 65 62 75 | 67 67 65 72 47 65 74 4d |de] Debu|ggerGetM|
|00002e20| 61 78 2a 28 29 3a 20 4c | 4f 4e 47 49 4e 54 20 30 |ax*(): L|ONGINT 0|
|00002e30| 37 30 48 2c 20 30 30 30 | 48 2c 20 30 41 30 48 2c |70H, 000|H, 0A0H,|
|00002e40| 20 30 38 44 48 2c 20 30 | 32 45 48 2c 20 30 38 30 | 08DH, 0|2EH, 080|
|00002e50| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 63 |H;..PROC|EDURE [c|
|00002e60| 6f 64 65 5d 20 44 65 62 | 75 67 67 65 72 45 6e 74 |ode] Deb|uggerEnt|
|00002e70| 65 72 2a 20 30 37 30 48 | 2c 20 30 30 31 48 2c 20 |er* 070H|, 001H, |
|00002e80| 30 41 30 48 2c 20 30 38 | 44 48 3b 0d 0d 50 52 4f |0A0H, 08|DH;..PRO|
|00002e90| 43 45 44 55 52 45 20 5b | 63 6f 64 65 5d 20 44 65 |CEDURE [|code] De|
|00002ea0| 62 75 67 67 65 72 45 78 | 69 74 2a 20 30 37 30 48 |buggerEx|it* 070H|
|00002eb0| 2c 20 30 30 32 48 2c 20 | 30 41 30 48 2c 20 30 38 |, 002H, |0A0H, 08|
|00002ec0| 44 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |DH;..PRO|CEDURE [|
|00002ed0| 63 6f 64 65 5d 20 44 65 | 62 75 67 67 65 72 50 6f |code] De|buggerPo|
|00002ee0| 6c 6c 2a 20 30 37 30 48 | 2c 20 30 30 33 48 2c 20 |ll* 070H|, 003H, |
|00002ef0| 30 41 30 48 2c 20 30 38 | 44 48 3b 0d 0d 50 52 4f |0A0H, 08|DH;..PRO|
|00002f00| 43 45 44 55 52 45 20 5b | 63 6f 64 65 5d 20 47 65 |CEDURE [|code] Ge|
|00002f10| 74 50 61 67 65 53 74 61 | 74 65 2a 28 61 64 64 72 |tPageSta|te*(addr|
|00002f20| 65 73 73 3a 20 50 74 72 | 29 3a 20 50 61 67 65 53 |ess: Ptr|): PageS|
|00002f30| 74 61 74 65 20 30 32 30 | 48 2c 20 30 35 46 48 2c |tate 020|H, 05FH,|
|00002f40| 20 30 37 30 48 2c 20 30 | 30 34 48 2c 20 30 41 30 | 070H, 0|04H, 0A0|
|00002f50| 48 2c 20 30 38 44 48 2c | 20 30 33 45 48 2c 20 30 |H, 08DH,| 03EH, 0|
|00002f60| 38 30 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |80H;..PR|OCEDURE |
|00002f70| 5b 63 6f 64 65 5d 20 50 | 61 67 65 46 61 75 6c 74 |[code] P|ageFault|
|00002f80| 46 61 74 61 6c 2a 28 29 | 3a 20 42 4f 4f 4c 45 41 |Fatal*()|: BOOLEA|
|00002f90| 4e 20 30 37 30 48 2c 20 | 30 30 35 48 2c 20 30 41 |N 070H, |005H, 0A|
|00002fa0| 30 48 2c 20 30 38 44 48 | 2c 20 30 31 45 48 2c 20 |0H, 08DH|, 01EH, |
|00002fb0| 30 38 30 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |080H;..P|ROCEDURE|
|00002fc0| 20 5b 63 6f 64 65 5d 20 | 44 65 62 75 67 67 65 72 | [code] |Debugger|
|00002fd0| 4c 6f 63 6b 4d 65 6d 6f | 72 79 2a 28 61 64 64 72 |LockMemo|ry*(addr|
|00002fe0| 65 73 73 3a 20 50 74 72 | 3b 20 63 6f 75 6e 74 3a |ess: Ptr|; count:|
|00002ff0| 20 4c 4f 4e 47 49 4e 54 | 29 3a 20 4d 61 63 54 79 | LONGINT|): MacTy|
|00003000| 70 65 73 2e 4f 53 45 72 | 72 20 30 32 32 48 2c 20 |pes.OSEr|r 022H, |
|00003010| 30 35 46 48 2c 20 30 32 | 30 48 2c 20 30 35 46 48 |05FH, 02|0H, 05FH|
|00003020| 2c 20 30 37 30 48 2c 20 | 30 30 36 48 2c 20 30 41 |, 070H, |006H, 0A|
|00003030| 30 48 2c 20 30 38 44 48 | 2c 20 30 33 45 48 2c 20 |0H, 08DH|, 03EH, |
|00003040| 30 38 30 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |080H;..P|ROCEDURE|
|00003050| 20 5b 63 6f 64 65 5d 20 | 44 65 62 75 67 67 65 72 | [code] |Debugger|
|00003060| 55 6e 6c 6f 63 6b 4d 65 | 6d 6f 72 79 2a 28 61 64 |UnlockMe|mory*(ad|
|00003070| 64 72 65 73 73 3a 20 50 | 74 72 3b 20 63 6f 75 6e |dress: P|tr; coun|
|00003080| 74 3a 20 4c 4f 4e 47 49 | 4e 54 29 3a 20 4d 61 63 |t: LONGI|NT): Mac|
|00003090| 54 79 70 65 73 2e 4f 53 | 45 72 72 20 30 32 32 48 |Types.OS|Err 022H|
|000030a0| 2c 20 30 35 46 48 2c 20 | 30 32 30 48 2c 20 30 35 |, 05FH, |020H, 05|
|000030b0| 46 48 2c 20 30 37 30 48 | 2c 20 30 30 37 48 2c 20 |FH, 070H|, 007H, |
|000030c0| 30 41 30 48 2c 20 30 38 | 44 48 2c 20 30 33 45 48 |0A0H, 08|DH, 03EH|
|000030d0| 2c 20 30 38 30 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 080H;.|.PROCEDU|
|000030e0| 52 45 20 5b 63 6f 64 65 | 5d 20 45 6e 74 65 72 53 |RE [code|] EnterS|
|000030f0| 75 70 65 72 76 69 73 6f | 72 4d 6f 64 65 2a 28 29 |uperviso|rMode*()|
|00003100| 3a 20 53 74 61 74 75 73 | 52 65 67 69 73 74 65 72 |: Status|Register|
|00003110| 43 6f 6e 74 65 6e 74 73 | 20 30 37 30 48 2c 20 30 |Contents| 070H, 0|
|00003120| 30 38 48 2c 20 30 41 30 | 48 2c 20 30 38 44 48 2c |08H, 0A0|H, 08DH,|
|00003130| 20 30 33 45 48 2c 20 30 | 38 30 48 3b 0d 0d 50 52 | 03EH, 0|80H;..PR|
|00003140| 4f 43 45 44 55 52 45 20 | 5b 63 6f 64 65 5d 20 53 |OCEDURE |[code] S|
|00003150| 74 72 69 70 41 64 64 72 | 65 73 73 2a 28 74 68 65 |tripAddr|ess*(the|
|00003160| 41 64 64 72 65 73 73 3a | 20 50 74 72 29 3a 20 50 |Address:| Ptr): P|
|00003170| 74 72 20 30 32 30 48 2c | 20 30 31 46 48 2c 20 30 |tr 020H,| 01FH, 0|
|00003180| 41 30 48 2c 20 30 35 35 | 48 2c 20 30 32 45 48 2c |A0H, 055|H, 02EH,|
|00003190| 20 30 38 30 48 3b 0d 0d | 50 52 4f 43 45 44 55 52 | 080H;..|PROCEDUR|
|000031a0| 45 20 5b 63 6f 64 65 5d | 20 54 72 61 6e 73 6c 61 |E [code]| Transla|
|000031b0| 74 65 32 34 54 6f 33 32 | 2a 28 61 64 64 72 32 34 |te24To32|*(addr24|
|000031c0| 3a 20 50 74 72 29 3a 20 | 50 74 72 20 30 32 30 48 |: Ptr): |Ptr 020H|
|000031d0| 2c 20 30 31 46 48 2c 20 | 30 41 30 48 2c 20 30 39 |, 01FH, |0A0H, 09|
|000031e0| 31 48 2c 20 30 32 45 48 | 2c 20 30 38 30 48 3b 0d |1H, 02EH|, 080H;.|
|000031f0| 0d 50 52 4f 43 45 44 55 | 52 45 20 5b 63 6f 64 65 |.PROCEDU|RE [code|
|00003200| 5d 20 68 61 6e 64 54 6f | 48 61 6e 64 20 30 41 39 |] handTo|Hand 0A9|
|00003210| 48 2c 20 30 45 31 48 3b | 0d 50 52 4f 43 45 44 55 |H, 0E1H;|.PROCEDU|
|00003220| 52 45 20 5b 6e 6f 73 74 | 6b 63 68 6b 5d 20 48 61 |RE [nost|kchk] Ha|
|00003230| 6e 64 54 6f 48 61 6e 64 | 2a 28 56 41 52 20 74 68 |ndToHand|*(VAR th|
|00003240| 65 48 6e 64 6c 3a 20 48 | 61 6e 64 6c 65 29 3a 20 |eHndl: H|andle): |
|00003250| 4d 61 63 54 79 70 65 73 | 2e 4f 53 45 72 72 3b 0d |MacTypes|.OSErr;.|
|00003260| 56 41 52 20 72 65 73 3a | 20 4d 61 63 54 79 70 65 |VAR res:| MacType|
|00003270| 73 2e 4f 53 45 72 72 3b | 0d 42 45 47 49 4e 0d 09 |s.OSErr;|.BEGIN..|
|00003280| 53 59 53 54 45 4d 2e 50 | 55 54 52 45 47 28 38 2c |SYSTEM.P|UTREG(8,|
|00003290| 20 74 68 65 48 6e 64 6c | 29 3b 0d 09 68 61 6e 64 | theHndl|);..hand|
|000032a0| 54 6f 48 61 6e 64 3b 0d | 09 53 59 53 54 45 4d 2e |ToHand;.|.SYSTEM.|
|000032b0| 47 45 54 52 45 47 28 30 | 2c 20 72 65 73 29 3b 0d |GETREG(0|, res);.|
|000032c0| 09 53 59 53 54 45 4d 2e | 47 45 54 52 45 47 28 38 |.SYSTEM.|GETREG(8|
|000032d0| 2c 20 74 68 65 48 6e 64 | 6c 29 3b 0d 09 52 45 54 |, theHnd|l);..RET|
|000032e0| 55 52 4e 20 72 65 73 0d | 45 4e 44 20 48 61 6e 64 |URN res.|END Hand|
|000032f0| 54 6f 48 61 6e 64 3b 0d | 0d 50 52 4f 43 45 44 55 |ToHand;.|.PROCEDU|
|00003300| 52 45 20 5b 63 6f 64 65 | 5d 20 50 74 72 54 6f 58 |RE [code|] PtrToX|
|00003310| 48 61 6e 64 2a 28 73 72 | 63 50 74 72 3a 20 50 74 |Hand*(sr|cPtr: Pt|
|00003320| 72 3b 20 64 73 74 48 6e | 64 6c 3a 20 48 61 6e 64 |r; dstHn|dl: Hand|
|00003330| 6c 65 3b 20 73 69 7a 65 | 3a 20 4c 4f 4e 47 49 4e |le; size|: LONGIN|
|00003340| 54 29 3a 20 4d 61 63 54 | 79 70 65 73 2e 4f 53 45 |T): MacT|ypes.OSE|
|00003350| 72 72 20 30 32 30 48 2c | 20 30 31 46 48 2c 20 30 |rr 020H,| 01FH, 0|
|00003360| 32 32 48 2c 20 30 35 46 | 48 2c 20 30 32 30 48 2c |22H, 05F|H, 020H,|
|00003370| 20 30 35 46 48 2c 20 30 | 41 39 48 2c 20 30 45 32 | 05FH, 0|A9H, 0E2|
|00003380| 48 2c 20 30 33 45 48 2c | 20 30 38 30 48 3b 0d 0d |H, 03EH,| 080H;..|
|00003390| 50 52 4f 43 45 44 55 52 | 45 20 5b 63 6f 64 65 5d |PROCEDUR|E [code]|
|000033a0| 20 70 74 72 54 6f 48 61 | 6e 64 20 30 41 39 48 2c | ptrToHa|nd 0A9H,|
|000033b0| 20 30 45 33 48 3b 0d 50 | 52 4f 43 45 44 55 52 45 | 0E3H;.P|ROCEDURE|
|000033c0| 20 5b 6e 6f 73 74 6b 63 | 68 6b 5d 20 50 74 72 54 | [nostkc|hk] PtrT|
|000033d0| 6f 48 61 6e 64 2a 28 73 | 72 63 50 74 72 3a 20 50 |oHand*(s|rcPtr: P|
|000033e0| 74 72 3b 20 56 41 52 20 | 64 73 74 48 6e 64 6c 3a |tr; VAR |dstHndl:|
|000033f0| 20 48 61 6e 64 6c 65 3b | 20 73 69 7a 65 3a 20 4c | Handle;| size: L|
|00003400| 4f 4e 47 49 4e 54 29 3a | 20 4d 61 63 54 79 70 65 |ONGINT):| MacType|
|00003410| 73 2e 4f 53 45 72 72 3b | 0d 56 41 52 20 72 65 73 |s.OSErr;|.VAR res|
|00003420| 3a 20 4d 61 63 54 79 70 | 65 73 2e 4f 53 45 72 72 |: MacTyp|es.OSErr|
|00003430| 3b 0d 42 45 47 49 4e 0d | 09 53 59 53 54 45 4d 2e |;.BEGIN.|.SYSTEM.|
|00003440| 50 55 54 52 45 47 28 38 | 2c 20 73 72 63 50 74 72 |PUTREG(8|, srcPtr|
|00003450| 29 3b 0d 09 53 59 53 54 | 45 4d 2e 50 55 54 52 45 |);..SYST|EM.PUTRE|
|00003460| 47 28 30 2c 20 73 69 7a | 65 29 3b 0d 09 70 74 72 |G(0, siz|e);..ptr|
|00003470| 54 6f 48 61 6e 64 3b 0d | 09 53 59 53 54 45 4d 2e |ToHand;.|.SYSTEM.|
|00003480| 47 45 54 52 45 47 28 30 | 2c 20 72 65 73 29 3b 0d |GETREG(0|, res);.|
|00003490| 09 53 59 53 54 45 4d 2e | 47 45 54 52 45 47 28 38 |.SYSTEM.|GETREG(8|
|000034a0| 2c 20 64 73 74 48 6e 64 | 6c 29 3b 0d 09 52 45 54 |, dstHnd|l);..RET|
|000034b0| 55 52 4e 20 72 65 73 0d | 45 4e 44 20 50 74 72 54 |URN res.|END PtrT|
|000034c0| 6f 48 61 6e 64 3b 0d 0d | 50 52 4f 43 45 44 55 52 |oHand;..|PROCEDUR|
|000034d0| 45 20 5b 63 6f 64 65 5d | 20 48 61 6e 64 41 6e 64 |E [code]| HandAnd|
|000034e0| 48 61 6e 64 2a 28 68 61 | 6e 64 31 3a 20 48 61 6e |Hand*(ha|nd1: Han|
|000034f0| 64 6c 65 3b 20 68 61 6e | 64 32 3a 20 48 61 6e 64 |dle; han|d2: Hand|
|00003500| 6c 65 29 3a 20 4d 61 63 | 54 79 70 65 73 2e 4f 53 |le): Mac|Types.OS|
|00003510| 45 72 72 20 30 32 32 48 | 2c 20 30 35 46 48 2c 20 |Err 022H|, 05FH, |
|00003520| 30 32 30 48 2c 20 30 35 | 46 48 2c 20 30 41 39 48 |020H, 05|FH, 0A9H|
|00003530| 2c 20 30 45 34 48 2c 20 | 30 33 45 48 2c 20 30 38 |, 0E4H, |03EH, 08|
|00003540| 30 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |0H;..PRO|CEDURE [|
|00003550| 63 6f 64 65 5d 20 50 74 | 72 41 6e 64 48 61 6e 64 |code] Pt|rAndHand|
|00003560| 2a 28 70 74 72 31 3a 20 | 50 74 72 3b 20 68 61 6e |*(ptr1: |Ptr; han|
|00003570| 64 32 3a 20 48 61 6e 64 | 6c 65 3b 20 73 69 7a 65 |d2: Hand|le; size|
|00003580| 3a 20 4c 4f 4e 47 49 4e | 54 29 3a 20 4d 61 63 54 |: LONGIN|T): MacT|
|00003590| 79 70 65 73 2e 4f 53 45 | 72 72 20 30 32 30 48 2c |ypes.OSE|rr 020H,|
|000035a0| 20 30 31 46 48 2c 20 30 | 32 32 48 2c 20 30 35 46 | 01FH, 0|22H, 05F|
|000035b0| 48 2c 20 30 32 30 48 2c | 20 30 35 46 48 2c 20 30 |H, 020H,| 05FH, 0|
|000035c0| 41 39 48 2c 20 30 45 46 | 48 2c 20 30 33 45 48 2c |A9H, 0EF|H, 03EH,|
|000035d0| 20 30 38 30 48 3b 0d 0d | 50 52 4f 43 45 44 55 52 | 080H;..|PROCEDUR|
|000035e0| 45 20 5b 63 6f 64 65 5d | 20 41 70 70 6c 69 63 5a |E [code]| ApplicZ|
|000035f0| 6f 6e 65 2a 28 29 3a 20 | 54 48 7a 20 30 32 45 48 |one*(): |THz 02EH|
|00003600| 2c 20 30 42 38 48 2c 20 | 30 30 32 48 2c 20 30 41 |, 0B8H, |002H, 0A|
|00003610| 41 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |AH;..PRO|CEDURE [|
|00003620| 63 6f 64 65 5d 20 4d 46 | 54 65 6d 70 4e 65 77 48 |code] MF|TempNewH|
|00003630| 61 6e 64 6c 65 2a 28 6c | 6f 67 69 63 61 6c 53 69 |andle*(l|ogicalSi|
|00003640| 7a 65 3a 20 53 69 7a 65 | 3b 20 56 41 52 20 72 65 |ze: Size|; VAR re|
|00003650| 73 75 6c 74 43 6f 64 65 | 3a 20 4d 61 63 54 79 70 |sultCode|: MacTyp|
|00003660| 65 73 2e 4f 53 45 72 72 | 29 3a 20 48 61 6e 64 6c |es.OSErr|): Handl|
|00003670| 65 20 30 33 46 48 2c 20 | 30 33 43 48 2c 20 30 30 |e 03FH, |03CH, 00|
|00003680| 30 48 2c 20 30 31 44 48 | 2c 20 30 41 38 48 2c 20 |0H, 01DH|, 0A8H, |
|00003690| 30 38 46 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |08FH;..P|ROCEDURE|
|000036a0| 20 5b 63 6f 64 65 5d 20 | 4d 46 4d 61 78 4d 65 6d | [code] |MFMaxMem|
|000036b0| 2a 28 56 41 52 20 67 72 | 6f 77 3a 20 53 69 7a 65 |*(VAR gr|ow: Size|
|000036c0| 29 3a 20 53 69 7a 65 20 | 30 33 46 48 2c 20 30 33 |): Size |03FH, 03|
|000036d0| 43 48 2c 20 30 30 30 48 | 2c 20 30 31 35 48 2c 20 |CH, 000H|, 015H, |
|000036e0| 30 41 38 48 2c 20 30 38 | 46 48 3b 0d 0d 50 52 4f |0A8H, 08|FH;..PRO|
|000036f0| 43 45 44 55 52 45 20 5b | 63 6f 64 65 5d 20 4d 46 |CEDURE [|code] MF|
|00003700| 46 72 65 65 4d 65 6d 2a | 28 29 3a 20 4c 4f 4e 47 |FreeMem*|(): LONG|
|00003710| 49 4e 54 20 30 33 46 48 | 2c 20 30 33 43 48 2c 20 |INT 03FH|, 03CH, |
|00003720| 30 30 30 48 2c 20 30 31 | 38 48 2c 20 30 41 38 48 |000H, 01|8H, 0A8H|
|00003730| 2c 20 30 38 46 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 08FH;.|.PROCEDU|
|00003740| 52 45 20 5b 63 6f 64 65 | 5d 20 4d 46 54 65 6d 70 |RE [code|] MFTemp|
|00003750| 48 4c 6f 63 6b 2a 28 68 | 3a 20 48 61 6e 64 6c 65 |HLock*(h|: Handle|
|00003760| 3b 20 56 41 52 20 72 65 | 73 75 6c 74 43 6f 64 65 |; VAR re|sultCode|
|00003770| 3a 20 4d 61 63 54 79 70 | 65 73 2e 4f 53 45 72 72 |: MacTyp|es.OSErr|
|00003780| 29 20 30 33 46 48 2c 20 | 30 33 43 48 2c 20 30 30 |) 03FH, |03CH, 00|
|00003790| 30 48 2c 20 30 31 45 48 | 2c 20 30 41 38 48 2c 20 |0H, 01EH|, 0A8H, |
|000037a0| 30 38 46 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |08FH;..P|ROCEDURE|
|000037b0| 20 5b 63 6f 64 65 5d 20 | 4d 46 54 65 6d 70 48 55 | [code] |MFTempHU|
|000037c0| 6e 6c 6f 63 6b 2a 28 68 | 3a 20 48 61 6e 64 6c 65 |nlock*(h|: Handle|
|000037d0| 3b 20 56 41 52 20 72 65 | 73 75 6c 74 43 6f 64 65 |; VAR re|sultCode|
|000037e0| 3a 20 4d 61 63 54 79 70 | 65 73 2e 4f 53 45 72 72 |: MacTyp|es.OSErr|
|000037f0| 29 20 30 33 46 48 2c 20 | 30 33 43 48 2c 20 30 30 |) 03FH, |03CH, 00|
|00003800| 30 48 2c 20 30 31 46 48 | 2c 20 30 41 38 48 2c 20 |0H, 01FH|, 0A8H, |
|00003810| 30 38 46 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |08FH;..P|ROCEDURE|
|00003820| 20 5b 63 6f 64 65 5d 20 | 4d 46 54 65 6d 70 44 69 | [code] |MFTempDi|
|00003830| 73 70 6f 73 48 61 6e 64 | 6c 65 2a 28 68 3a 20 48 |sposHand|le*(h: H|
|00003840| 61 6e 64 6c 65 3b 20 56 | 41 52 20 72 65 73 75 6c |andle; V|AR resul|
|00003850| 74 43 6f 64 65 3a 20 4d | 61 63 54 79 70 65 73 2e |tCode: M|acTypes.|
|00003860| 4f 53 45 72 72 29 20 30 | 33 46 48 2c 20 30 33 43 |OSErr) 0|3FH, 03C|
|00003870| 48 2c 20 30 30 30 48 2c | 20 30 32 30 48 2c 20 30 |H, 000H,| 020H, 0|
|00003880| 41 38 48 2c 20 30 38 46 | 48 3b 0d 0d 50 52 4f 43 |A8H, 08F|H;..PROC|
|00003890| 45 44 55 52 45 20 5b 63 | 6f 64 65 5d 20 4d 46 54 |EDURE [c|ode] MFT|
|000038a0| 6f 70 4d 65 6d 2a 28 29 | 3a 20 50 74 72 20 30 33 |opMem*()|: Ptr 03|
|000038b0| 46 48 2c 20 30 33 43 48 | 2c 20 30 30 30 48 2c 20 |FH, 03CH|, 000H, |
|000038c0| 30 31 36 48 2c 20 30 41 | 38 48 2c 20 30 38 46 48 |016H, 0A|8H, 08FH|
|000038d0| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 5b 63 6f |;..PROCE|DURE [co|
|000038e0| 64 65 5d 20 52 65 73 72 | 76 4d 65 6d 2a 28 63 62 |de] Resr|vMem*(cb|
|000038f0| 4e 65 65 64 65 64 3a 20 | 53 69 7a 65 29 20 30 32 |Needed: |Size) 02|
|00003900| 30 48 2c 20 30 31 46 48 | 2c 20 30 41 30 48 2c 20 |0H, 01FH|, 0A0H, |
|00003910| 30 34 30 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |040H;..P|ROCEDURE|
|00003920| 20 5b 63 6f 64 65 5d 20 | 44 69 73 70 6f 73 50 74 | [code] |DisposPt|
|00003930| 72 2a 28 70 3a 20 50 74 | 72 29 20 30 32 30 48 2c |r*(p: Pt|r) 020H,|
|00003940| 20 30 35 46 48 2c 20 30 | 41 30 48 2c 20 30 31 46 | 05FH, 0|A0H, 01F|
|00003950| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 63 |H;..PROC|EDURE [c|
|00003960| 6f 64 65 5d 20 44 69 73 | 70 6f 73 48 61 6e 64 6c |ode] Dis|posHandl|
|00003970| 65 2a 28 68 3a 20 48 61 | 6e 64 6c 65 29 20 30 32 |e*(h: Ha|ndle) 02|
|00003980| 30 48 2c 20 30 35 46 48 | 2c 20 30 41 30 48 2c 20 |0H, 05FH|, 0A0H, |
|00003990| 30 32 33 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |023H;..P|ROCEDURE|
|000039a0| 20 5b 63 6f 64 65 5d 20 | 52 65 61 6c 6c 6f 63 48 | [code] |ReallocH|
|000039b0| 61 6e 64 6c 65 2a 28 68 | 3a 20 48 61 6e 64 6c 65 |andle*(h|: Handle|
|000039c0| 3b 20 62 79 74 65 43 6f | 75 6e 74 3a 20 53 69 7a |; byteCo|unt: Siz|
|000039d0| 65 29 20 30 32 30 48 2c | 20 30 31 46 48 2c 20 30 |e) 020H,| 01FH, 0|
|000039e0| 32 30 48 2c 20 30 35 46 | 48 2c 20 30 41 30 48 2c |20H, 05F|H, 0A0H,|
|000039f0| 20 30 32 37 48 3b 0d 0d | 20 45 4e 44 20 4d 61 63 | 027H;..| END Mac|
|00003a00| 4d 65 6d 6f 72 79 4d 67 | 72 2e 0d 82 f1 54 65 78 |MemoryMg|r....Tex|
|00003a10| 74 43 6f 6e 74 72 6f 6c | 6c 65 72 73 2e 53 74 64 |tControl|lers.Std|
|00003a20| 43 74 72 6c 44 65 73 63 | 00 f1 54 65 78 74 43 6f |CtrlDesc|..TextCo|
|00003a30| 6e 74 72 6f 6c 6c 65 72 | 73 2e 43 6f 6e 74 72 6f |ntroller|s.Contro|
|00003a40| 6c 6c 65 72 44 65 73 63 | 00 f1 43 6f 6e 74 61 69 |llerDesc|..Contai|
|00003a50| 6e 65 72 73 2e 43 6f 6e | 74 72 6f 6c 6c 65 72 44 |ners.Con|trollerD|
|00003a60| 65 73 63 00 f1 43 6f 6e | 74 72 6f 6c 6c 65 72 73 |esc..Con|trollers|
|00003a70| 2e 43 6f 6e 74 72 6f 6c | 6c 65 72 44 65 73 63 00 |.Control|lerDesc.|
|00003a80| f2 04 00 00 00 00 00 00 | 00 14 00 00 00 00 00 00 |........|........|
|00003a90| 00 09 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003aa0| 01 82 f1 54 65 78 74 52 | 75 6c 65 72 73 2e 53 74 |...TextR|ulers.St|
|00003ab0| 64 52 75 6c 65 72 44 65 | 73 63 00 f1 54 65 78 74 |dRulerDe|sc..Text|
|00003ac0| 52 75 6c 65 72 73 2e 52 | 75 6c 65 72 44 65 73 63 |Rulers.R|ulerDesc|
|00003ad0| 00 f2 03 00 00 00 00 00 | 00 00 ab 00 00 00 07 00 |........|........|
|00003ae0| 00 00 a3 00 00 00 00 00 | 00 83 f1 54 65 78 74 52 |........|...TextR|
|00003af0| 75 6c 65 72 73 2e 53 74 | 64 53 74 79 6c 65 44 65 |ulers.St|dStyleDe|
|00003b00| 73 63 00 f1 54 65 78 74 | 52 75 6c 65 72 73 2e 53 |sc..Text|Rulers.S|
|00003b10| 74 79 6c 65 44 65 73 63 | 00 f2 07 00 00 00 00 00 |tyleDesc|........|
|00003b20| 00 00 00 00 00 00 08 00 | 00 00 5a 00 00 00 00 00 |........|..Z.....|
|00003b30| 00 00 82 f1 54 65 78 74 | 52 75 6c 65 72 73 2e 41 |....Text|Rulers.A|
|00003b40| 74 74 72 69 62 75 74 65 | 73 44 65 73 63 00 f2 04 |ttribute|sDesc...|
|00003b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 24 |........|.......$|
|00003b60| 00 00 00 00 01 00 00 00 | 00 00 00 00 00 20 a3 5a |........|..... .Z|
|00003b70| 00 00 00 00 00 7c be 01 | 00 38 63 00 00 01 00 00 |.....|..|.8c.....|
|00003b80| 00 01 00 00 00 00 00 00 | 00 82 f2 0d 00 00 00 00 |........|........|
|00003b90| 00 00 00 00 00 00 00 00 | 00 00 00 22 00 00 00 00 |........|..."....|
|00003ba0| 00 00 00 00 01 00 00 00 | 00 48 65 6c 76 65 74 69 |........|.Helveti|
|00003bb0| 63 61 00 7c be 01 00 00 | 00 00 00 90 01 00 00 00 |ca.|....|........|
|00003bc0| 00 00 00 00 00 00 00 00 | 00 e0 8c 01 00 e0 8c 01 |........|........|
|00003bd0| 00 00 30 5c 00 df 8c 01 | 40 82 f1 44 6f 63 75 6d |..0\....|@..Docum|
|00003be0| 65 6e 74 73 2e 43 6f 6e | 74 72 6f 6c 6c 65 72 44 |ents.Con|trollerD|
|00003bf0| 65 73 63 00 f2 10 00 00 | 00 00 00 00 00 00 00 00 |esc.....|........|
|00003c00| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 09 00 |........|........|
|00003c10| 00 00 00 b0 3f 73 00 20 | 27 a3 00 80 fc 0a 00 80 |....?s. |'.......|
|00003c20| fc 0a 00 30 43 68 00 a0 | 2a 98 00 00 00 00 00 00 |...0Ch..|*.......|
|00003c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c80| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00003c90| 00 00 00 11 00 6c 04 3c | 00 04 04 5d 00 04 04 7d |.....l.<|...]...}|
|00003ca0| 00 04 07 00 00 00 00 11 | 00 78 04 aa 00 10 06 a8 |........|.x......|
|00003cb0| 09 4d 65 6d 6f 72 79 4d | 67 72 02 00 00 00 50 61 |.MemoryM|gr....Pa|
|00003cc0| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|00003cd0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 ae 04 81 86 00 00 | 00 00 00 00 01 3e 45 2f |........|.....>E/|
|00003d00| 00 01 45 3d 00 04 07 00 | 00 00 00 11 00 df 45 59 |..E=....|......EY|
|00003d10| 00 01 45 5f 00 01 45 6e | 00 02 07 00 00 00 00 11 |..E_..En|........|
|00003d20| 00 e3 45 91 00 01 46 81 | 00 01 46 ed 00 04 07 00 |..E...F.|..F.....|
|00003d30| 00 00 00 11 00 e9 47 5e | 00 01 48 93 00 02 48 b1 |......G^|..H...H.|
|00003d40| 00 02 07 00 00 00 00 11 | 00 ee 4a 41 00 02 4a 58 |........|..JA..JX|
|00003d50| 00 01 4b 22 00 02 07 00 | 00 00 00 11 00 f3 4d 44 |..K"....|......MD|
|00003d60| 00 0d 4d ed 00 01 4e 23 | 00 01 07 00 00 00 00 11 |..M...N#|........|
|00003d70| 01 02 4e ec 00 0d 4f 27 | 00 0b 4f 33 00 01 07 00 |..N...O'|..O3....|
|00003d80| 00 00 00 08 00 3c 00 05 | 01 db 02 06 00 00 01 00 |.....<..|........|
|00003d90| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 7f 5f 70 |........|...2.._p|
|00003da0| 0c 20 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |. .....2|..WNSP..|
|00003db0| 00 0a 00 01 ff ff 00 00 | 00 00 00 7f 62 9c 00 00 |........|....b...|
|00003dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+